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POWERRUy 



People productivity. It’s more important than ever. 
And a good database system can mean real 
productivity. 

USER-11 is a high-performance database system. 

o 

It is a fact: Software designed with USER-11 is 
built more quickly, operates more reliably, and 
performs better than other software techniques. 

USER-11 is unique. It’s easy to install. Easy to 
learn. And easy to apply. Adaptive tools and a 
standard approach ensure that maintenance is 
easier than ever. 

A key to USER-11 ’s success is its powerful, 
dictionary-based modules. Software developers 
simply describe and assemble these modules to 
create custom business packages—at an 
unprecedented rate. 


Naturally USER-11 is supported with excellent 
documentation and a variety of training options 
for beginner to expert. Our commitment is to your 
complete satisfaction. 

Whether you are a software provider or a software 
user, we guarantee you will be delighted. 

Ask us about USER-11 and our family of business 
software products, or better yet, ask a 
productive USER! 

North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773 


*USER-11 is currently available for DEC computers 
using the RSTS operating system. 
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Southern Systems 
has a printer that's right 
for your computer. 

Compatibility guaranteed 
with all DEC processors! 

PDP/8, PDP/11, LSI/11, VAX, DEC 10, DEC 20. 
Choose either long-line or short-line configuration. 



Get the printer system 
that's guaranteed... 
from the leading add-on 
printer company, 
Southern Systems. 
You'll add-on a printer, 
plus unmatched 
expertise and top- 
quality service, when 
you add-on Southern 
Systems. Maximum 



Southern Systems 


The Printer System Problem-Solvers 
2841 Cypress Creek Road, Fort Lauderdale, Florida 33309 
(305) 979-1000 • (800) 327-5602 • Telex 522135 
In Canada (800) 661-1165 [Alberta: (403) 230-2044] 

In Europe 44-3-726-7282 


performance/minimum 
downtime results from 
technological 
innovation, expert 
installation and long¬ 
term service, nation¬ 
wide. Sales offices in 
all major U.S. cities 
and in western Europe, 
United Kingdom and 
Canada. 


I- 

I My computer system is a 


Name. 


... and I need a printer system in the speed 
range of; 

— 33-55 cps (letter quality) 

— 200-300 Ipm 600-900 I pm 1000 plus 

— Parallel 

_Serial (synchronous or asynchronous) 

My requirements are _Immediate 

_3-6 months _For information only 


Title_ 

Company_ 

Address_ 

City_ 

State-Zip. 

Telephone- 
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SOFTWARE 


Provo, Ut — Suppose you have a 
customer that is having trouble 
running one of your programs on 
his system. He has a deadline to 
meet and needs the problem solved 
immediately (within minutes, not 
days). What do you do? 

Link to his system using CALOUT. 

With CALOUT you go ahead and 
hook up your system to his. Do it 
with any standard phone line and 
modem. Once you’re in there with 
CALOUT, you can run any program 
on his systems through your term¬ 
inal on your system. 

Watch the user run his program. 

Now, the idea is to run CONTRL on 
his system. With CONTRL you can 
see everything that is happening on 
his terminal. If the user does some¬ 
thing wrong, you can tell him how 
to do it right. Or just type the 
correct entry in at your terminal. It 
will show up on the user’s terminal 
too. 

See program bugs first-hand. 

With CONTRL you see any program 
bugs the user encounters. It’s much 
easier to understand a problem 
when you see it yourself. And since 
the user knows you see it too, it 
boosts his confidence that you’ll 
solve the problem quickly. 

Transfer the corrected program 
with CALOUT. Once you’ve fixed 
the program, you can get it to your 
user fast With CALOUT you can 
send the program over the phone 
to his system. No need to worry 
about file attributes and protection 
codes. CALOUT takes care of them. 
Send binary or source files. It makes 
no difference. And if the phone line 
is noisy, CALOUT does error check- 


GIVE IMMEDIATE 


SOFTWARE SUPPORT 


TO A USER OF 


ANOTHER SYSTEM 


ing and correction which guaran¬ 
tees an accurate transfer. 

DOC lets user log problems. To 

log a problem the user just runs 
DOC. Then he can run programs on 
the system. DOC records all his 
input and computer output But 
DOC does not interfer in any way 
with his program execution. The 
user can even make logs of screen 
painting programs. 

Retrieve the user’s log files. Using 
CALOUT you can rapidly receive 
DOC log files and program reports 
from the user’s system. Now you 
have on hand the exact input and 
computer output for the problem. 
What cleaner way to clear up com¬ 
plicated problems? 

Unique Bootstrap Capability 

The first time your system links up 
to a remote system, CALOUT auto¬ 
matically transfers the necessary 
sending and receiving modules to 
the remove system. 

No need for operator assistance. 

No special programs to load on the 
user’s system by magtape or other 
convential distribution media. 

Link to any system you need to 
when you need to: 

License only the host system where 
CALOUT resides. With CALOUT on 


your system you can establish links 
with other systems. There are no 
additional licensing costs for each 
new link. 

Call up any remote system and 
transfer files whenever you need to. 

Utilities can be purchased to¬ 
gether or separately. All utilities 
are available for VMS or RSTS/E. 
For the VMS, DOC is called CATCH- 
IT, and CONTRL is called DEMO. 
Also, you can use CALOUT to sup¬ 
port systems running RSX-11M, RT- 
11, and other operating systems. 

No installation. None of these 
utilities require any special hard¬ 
ware or installation. Just load the 
utility programs on your system 
and run them. In addition, each 
utility comes with a complete in¬ 
struction manual. 


Clyde 

How to get more information. 

Call Mary at (801) 224-.S3()6, or 
write: Clyde Digital Systems, Inc. 
3707 North Canyon Road/Bldg. 3-E. 
Provo, UT 84604. Booth .517, Dexpo 
West 
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From the editors. .. 


IF YOU WANT IT YOU HAVE TO ASK FOR IT 

Carl B. Marbach 

I have recently returned from the 
Australia DECUS meetings held during July 
in Melbourne. Victoria. Our RSTS friends 
down under’ are some of the most friendly, 
fine people I have been priviliged to meet 
during my years of RSTS involvement. Next 
year’s symposium chairman Chris Brett was 
a terrific host and we were proud to be able 
to participate with them at their meeting. 
For the sightseers in the group we hope to 
have some pictures and a full report in the 
next issue. 

I have now attended DECUS symposia 
in Canada, Britain, and Australia as well as 
the U.S. and I thought I would share with 
you one major difference between the U.S. 
and other countries which I think we can 
address. One of the valuable sessions I at¬ 
tended in Melbourne was titled “non-DEC 
Software Packages for RSTS/E." This ses¬ 
sion, given by users, gave no prices but did 
discuss what the package did, how well it 
did it. how easy it was to use, what kind of 
documentation was there and a users’ 
overall evaluation of the product. Some of 
the products discussed included BACKUP 
packages, WORD PROCESSING packages, 
SORT utilities, SEARCH and SELECT 
packages and others. Each was discussed 
frankly, openly and by more than one per¬ 
son; every one of us in the room learned 
something about how to make our systems 
run and work better. Isn’t that what we 
were there for? 

The closest the U.S. chapter has come 
to this type of discussion is with a ‘birds of a 
feather’ session where we once discussed a 
Word Processing system among users of 
that system. Have you ever tried to schedule 
a ‘birds of a feather session’? Hard to do 
within the time constraints of a jam-packed 
five day DECUS symposium. Clearly, the U.S. 
chapter needs to move more towards serv¬ 
ing the user directly with practical 
knowledge he can take home with him. A 
RSTS site around the corner from here 
doesn’t send someone to DECUS (well, once 
they did) and I am sure their reasoning is 
that it doesn’t make economic sense to the 
company. Most DECUS symposia fees are 
paid by companies and they have a right to 
expect something in return. If we don’t give 
it to them then they won’t come. Did you 
know that attendance was DOWN at the 
Atlanta meeting? I would suggest that one 
way to increase attendance is to make it 
more valuable for attendees and their com¬ 
panies. 

I have been told that if the SIG (RSTS in 
this case) wants to do something, they can 
do it if it doesn’t violate any DECUS rules. 
Well if it doesn’t violate them in Australia it 
doesn’t violate them in the U.S. (even if 


water does go down the drain counter¬ 
clockwise). Would you like to have a session 
where users present their experience with 
non-DEC packages? Here’s a deal: Write me 
a postcard (preferred) or a short note saying 
so and I’ll fight a battle (if necessary) with 
the DECUS powers to make it happen. Send 
it to: Carl Marbach, non-DEC packages. Box 
361, Fort Washington. PA 19034^0361. If 
you want it, we’ll fight for you. Let there be 
no mistake: We want a non-DEC package 
seminar at the St. Louis spring DECUS 
meetings, I offer to chair the session and 
have at least ten packages presented by 
users. And remember: YOU asked for it! 


"It was seven years ago today Sergeant 
Pepper taught the band to play . . . (sic)" 

Dave Mallery 

Seven years ago today, I was in 
Maynard, taking the RSTS series. I 
remember long afternoons in the lab get¬ 
ting that first record-io program to 
work ... finally understanding the dif¬ 
ference between LET and LSET. I remember 
being shown a real live 11 /70 there in the 
field service training area. 

That was a great time for me. I was 
fresh from nine years of DP experience, first 
three years of RCA (remember the 
501??(72-43-61)), then the balance in Big 
Blue, mostly assembly and communications, 
then a stint running a service bureau with a 
system-3/10, then back to mainframes 
with a 135 running DOS/VS and CICS. The 
transition from IBM to DEC was a radical 
change. It’s hard to imagine two more total¬ 
ly different philosophies within the same in¬ 
dustry. They certainly yield wildly different 
machines. (Isn’t it interesting how the 135’s 
and 3/10’s are all gone today, but the 
11/40’s from pre-1975 are still going 
strong?) 

My 70 had to go down last night 
because of a power glitch. It had been up for 
fifty days. Other than tape and printer pro¬ 
blems. we were down a year ago with a disk 
problem. 1 can’t remember when the pro¬ 
cessor went down last.. . probably about 
four years ago. 

All the programs I wrote in the fall of 
1975 are still operational, still in BASIC-i-. 
They have been through years of pruning 
and changing, and will probably be still 
functioning seven years from now on micro- 
J11 equipped desktop machines. They, 
basically, don’t go down. 

I still write code. I write it in BASIC +. 1 
have learned a great deal about structured 
code in seven years (it didn’t exist then)... I 
must say that I write much better code to¬ 
day than in 1975.1 hope I can say the same 
in 1989. 

Hey Carl, what about that 
Sabbatical??? ^ 
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ALL PROGRAMS PUBLISHED IN THE RSTS PROFESSIONAL 
ARE WARRANTEED TO PERFORM NO USEFUL FUNCTION. 
THEY ARE GUARANTEED TO CONTAIN BUGS. THEY ARE 
DESIGNED TO GET YOU THINKING. THEY ARE INTENDED 
TO EDUCATE AND ENTERTAIN. THEY ARE PUBLISHED ON 
THE PREMISE THAT IT IS BETTER TO SPREAD PEOPLE S 
BEST EFFORTS AROUND EVEN IF THERE IS AN OCCASIONAL 
PROBLEM. IF YOU USE THEM. MAKE THEM YOUR OWN. 
AND YOU WILL NOT GO WRONG. 


Editorial Information: We will consider for 
publication all submitted manuscripts and 
photographs, and welcome your articles, 
photographs and suggestions. All material will 
be treated with care, although we cannot be 
responsible for loss or damage. (Any payment 
for use of material will be made only upon 
publication.) 


*This publication is not promoted, not authorized, 
and is not in any way affiliated with Digital Equip¬ 
ment Corporation. Material presented in this 
publication in no way reflects speciflcations or 
policies of Digital Equipment Corporation. All 
materials presented are believed accurate, but 
we cannot assume responsibility for their 
accuracy or application. 








BEFORE you add memory 
(or anything else) 
to increase system performance 



STOP 



YOU Should add dopter! 

DOPTER is an easy to use RSTS/E disk copying program which 

INCREASES SYSTEM PERFORMANCE UP TO SO%. 


DOPTER performs all of the standard functions 
necessary to structure a RSTS/E disk volume and 
automatically does the following: 

• Places all files and free space in their optimum 
positions. 

• Produces better optimized MFD/UFD’s than 
REORDR. 

• Deletes unused file attributes from source, task, 
and object library files saving UFD and cache 
accesses. 

• Places and pre-extends the MFD. 



5522 Loch More Court • Dublin, Ohio 43017 • 614-265-' 


• Places the most used files at the front of the 
UFD’s. 

• Places the U FD’s with the most activity toward the 
front of the MFD. 

For More Information 

If you would like more information on how you can 
increase the performance of your RSTS/E system 
with DOPTER and a free copy of “RSTS/E DISK 
OPTIMIZATION IN A MULTI-USER 
ENVIRONMENT”, phone or write SPH today. 

RSTS/E is a registered trademark of Digital Equipment Corporation. 

System 
Performance 
House, Inc. 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.O. Box 
361. Ft. Washington. PA 19034-0361. 


Dear Sir or Madam: 

The complaint raised by the Systems Manager 
for the RSTS System at the Baptist Memorial 
Hospital raises some interesting legal points. 

There is an enormous installed base dependent 
upon RSTS and the PDP-11 System. It has 
become obvious over the last several years that the 
VAX family is no real improvement for most of 
this installed PDP-11 RSTS base, and that 
perhaps DEC has made another marketing error 
perhaps even more cata.strophic than its ill-fated 
word processing efforts, WPS-100 102 200 202. 
If such is the case, market forces will soon 
demonstrate to DEC the error of their ways as it 
did in the case of the early DEC word processors. 

What is most significant to me as an attorney 
and RSTS-dependent professional is that perhaps 
DEC has adopted as a corporate policy the method 
of planned system obsolescence and lack of 
software portability characteristic of certain other 
companies in the field. If this is the case, then we, as 
DEC users committed to RSTS and the PDP-11 
family, have a legitimate complaint and what the 
law refers to as a cause of action. Any legal action 
should be directed against DEC management and 
compel them to recognize their fiduciary obliga¬ 
tions and responsibility toward the installed user 
base for their major systems. As DEC advertised, 
promoted, marketed, and sold, so they are respon¬ 
sible to the users who committed their business 
operations to those systems. Only a corporate 
catastrophe on the order of reorganization under 
the Bankruptcy Act should limit the responsibility 
of a Fortune 500 company toward its customer’s 
investment. This is even more the case where the 
company is primarily a hardware vendor rather 
than a company promoting software applications. 
Once before DEC demonstrated similar cavalier 
disregard for its installed user base when it brought 
forth the PDP-11 system family. Our firm was one 
of those so unfortunate to have committed to the 
PDP-8 on the advice of DEC corporate manage¬ 
ment who assured us that legal systems applica¬ 
tions did not require the investment in a PDP-11 
system, and then two years later when the PDP-8 
system proved totally inadequate and its promised 
upgrades were never brought to market, we were 
left to rebuild our firm’s data processing/ word pro¬ 
cessing/data base management system with a used 
PDP-11 34 because DEC could not deliver 11 44 
systems at the time we needed them. 

We considered litigation at that time, but felt 
that we were an isolated case and that DEC, unlike 
IBM, had a corporate policy of user support and 
loyalty to its installed data base that would render 
it essentially immune from legal challenge. At this 
time, we are no longer so certain of these beliefs 
and are giving serious thought to raising the ques¬ 
tion in the Courts by way of a class action on behalf 
of all those users so unfortunate as to be similarly 
situated. Such an action would seek a declaratory 
Judgement imposing upon DEC the duty to direct 
its systems evolution toward the defined needs of 
its established user base before diverting substan¬ 
tial corporate resources toward speculative ven¬ 
tures of limited utility and questionable market 
value. As a representative of stockholders in the 
company as well as a user myself, I beleive that 
such an action has merit unless a rational e.xplana- 
tion is forthcoming from corporate management at 
DEC. 


The value of RSTS and the PDP-11 family is 
evidenced throughout the Department of Defense, 
other agencies of government, hospitals such as 
Baptist Memorial Hospital, and of most concern to 
me in the arena of litigation in the rather unequal 
struggle between two and half million essentially 
destitute Viet Nam combat veterans with a PDP- 
11 34 operating under RSTS E against six of the 
largest multinational conglomerate corporations 
in the chemical industry and all of their data pro¬ 
cessing resources in the Agent Orange litigation. 

We would be interested in hearing the comments 
of other PDP-11 family users running RSTS and 
concerned about the corporate commitment of 
Digital Equipment Corporation to its installed 
data base. 

Very truly yours, 

YANNACONE & YANNACONE, P C. 

Victor John Yannacone, Jr. 


Thought you might find this interesting. It’s 
about the “NONAME-est” NONAME state I’ve 
ever seen, it was produced by executing a ‘CHAIN’ 
in BASIC-PLUS to -NL:’’. 


tFASIC 'l.(OP) 
^l<34 ♦{‘ASIC -C<0li) 


♦ FA3IC JilAH 

♦ {<A5IC 'LiOR* C<16'i 
♦l<A5IC ‘(.tOK) Cdo'l 


l27.6<+0.0» 
ir7.6«+0.0> 
+ 0.0 > 


13 


j.ji-sr 


i‘l"34 ♦FASIC C<OR> 
03:3C 13-J‘j1-8:! 




Questions: 

a. Any way to get EDT to simulate TECO’s 72 
and B+ switches? 

b. Will future releases of CSPCOM be compati¬ 
ble with the patches, etc. mentioned in the article 
‘Getting The Most Out of CSPCOM’ (RSTS Pm.. 
y.3. U3. Sept. 1981. p.64)you printeda while back? 

Thanks. K. Wallewein, Programmer Analyst 
ATCO Ltd., Calgary Alberta 
Our Editor Columnist, David Spencer, answers 
your first question: Hold onto TECO because 
EDT will not do that for you automatically, nor 
does there seem to he a way of writing a macro to 
do it. 

h. The u.se of CSPCOM for non cusps is not sup¬ 
ported. We believe that it will continue to be func¬ 
tional in new releases, and if we are lucky enough to 
have someone send us new (if neces.sary) patches, 
we will be able to keep 'Getting the Most Out of 
CSPCOM’. Ed. 


Might I suggest inclusion, every year or so, of an 
index based on all articles which have appeared in 
RSTS PROFESSIONAL to date. 

There is so much valuable information in your 
magazine that it tends to get a little frustrating 
when one can recall seeing an article on a particular 
topic, but cannot remember either the issue or the 
heading/page under which it appeared. 

E.N. Lynskey, Systems Manager 
CBL Wellington, Ltd., Wellington, New' Zealand 
No sooner said than done, see RSTS Professional 
Cumulative Index, by Greg Justice, on page 32 of 
this issue. 


The following macros, included in our standard 
initialiser file (STECO.INI, loaded automatically if 


no user TECO.INI is available) may be helpful 
additions to the Erskine set (RSTS Pro.. V.4, tt3. 
June 1982. p.84). nMF moves forward over n 
words, while nMR reverses over n words, n 
defaults to I in both cases, and a word is a string of 
letters or digits separated by one or more of the 
characters loaded into Q-register Z. 

As given, M R will leave the cursor at the end of a 
word — to get it to leave the cursor at the start of a 
word, include ME after the closing angle bracket. 

! load forwards macro ! 

@!UF\ +OUZ QZ ’EIUZ’ QZ<@:S/IEGZ/ “S OA “R F> 

I F<’ |0;- > \ 

! load reverse macro ! 

@!UR\ +OUZ QZ-EIUZ’ QZ<R @-:S/tEGZ/ “S R -lA 

“C F> I F<’ |0;’> \ 

! define word separators ! 

@!UZ" +-. ( )*\ 1! = :<>/I ]” 

! include tab. If, vt, ff, cr ! 

9UZ 5<@ QZ :!UZ// ^oZ> 

$$ 

Yours Sincerely, Austin Kinsella 

Regional Technical College, Carlow, Ireland 

Regarding LOGOUT’S deletion of .TMP files 
(August 1982. V.4. U4. Dear RSTS Man. p.36). 
Mr. (Ms?) Man’s answer neglected one considera¬ 
tion. LOGOUT will delete “????” + NUMlS(job- 
.num%)+.“TMP”. Having chosen the format 
xxxx**.TMP as a reasonable file name convention 
for some temporary files manipulated in several of 
our application packages, we discovered these files 
were “mysteriously” di.sap pea ring. After sufficient 
finger-pointing and “you deleted them” accusa¬ 
tions aimed at our users (guilty until proven inno¬ 
cent), we suspicioned RSTS. 

Sure enough, part of a successful LOGOUT 
includes housekeepping deletion of all files in the 
current account named '.’??? (your current job 
number); two positions: leading zero last.TMP. 
Useful when you know' it. 

Bob Dudley, President 

Meramec Automated Solutions, St. Louis, Mo. 
Note: Since is ambiguous in common usage 
(ours, not RSTS’s), strictly speaking the deletion is 
%%%9?^**.TMP in RTll’s wild card format; i.e. 
the job number must (!) occupy positions 5 and 6 of 
the filename or the file will not be deleted. 
Wouldn’t it be nice if RSTS understood RTl I’s 
wildcard * and % conventions? 

I must respond to Michael Koplitz’s article on 
The RSTS/E Environment (RSTS Pro.. April 
1982. V.4. n2. p.74): 

The 31KW limitation is INDEED caused by a 
sign problem The monitor maintains two loca¬ 
tions: MAXLOW and MAXHI which contain 
respectively the highest location used by the user in 
the low-core PLUS one; and the LOWEST loca¬ 
tion used by the jobs RTS, with a 0 designating the 
NULL rts. RSTS core management routines and 
user mapping routines use the comparisons: 

CMP MAXHI, MAXLOW 

CMP Addr, MAXLOW 

BHIS .... 

BLO. 

to determine the legality of the users low core. 
Since the allocation unit by the monitor for user 
memory is IKW, a 32KW low core, by the rules 
above would be represented by a 1 in MAXLOW, 
and a 0 in MAXHI hence causing a sign problem in 
the comparisons, especially the BLO. NOTE how¬ 
ever, that when using libraries or RTS’s, the full 
32KW virtual address space is available. 

Under RSX monitor emulation, no intepreta- 
tion of the user’s high core is used for pseudo¬ 
vectors. Instead, the monitor KNOWS about the 
user using RSX emulation, and traps errors at the 
... continued on page 53 








Picture Your Disk Files 



The next time your system is thrashing around, 
remember this: you could be losing up to 
50 percent* of your performance due to 
fragmented files. 

DISKIT provides you with all the tools you need to 
create and manage well-structured disks. Use 
DISKIT to race through backup at 10,000 
blocks/minute as it optimizes your disks. 

Plus, DISKIT includes four other tools which help 
you improve system security, programmer 
productivity, and system performance. 

For more information on this amazing product, 
please write or call. 


* Based on Information supplied by our customers. 

Software 
Techniques 
Incorporated 

Business tools for the work of man. 

5242 Katella Avenue 287 London Road 

Los Alamitos, CA 90720 Newbury, Berkshire RG13 2QJ 

United States United Kingdom 

Phone: [714] 995-0533 Phone: 44 [0] 635-30840 
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ADDLIB 

ADD A RESIDENT LIBRARY WITHOUT AN ADDRESS 

By Edward A. Heinrich. Real-Time Software. Inc. 

420 Lexington Avenue. New York. N.Y. 10017 
Copyright ® 1982 by Real-Time Software. Inc. 


Introduction: With the release of V7.0 of RSTS. DEC pro¬ 
vided us with the feature of resident libraries which can be 
used for a variety of applications such as interjob com¬ 
munications. shared data areas and/or re-entrant code that 
can be shared by many different tasks, i.e., RMSRES, 
BASICS and EDT. The major drawback of resident libraries, 
at least from a system management point of view, is the 
fact that they must be added at a specific address, which 
the user must calculate. Proper system management dic¬ 
tates that the libraries be added either at the beginning or 
end of user space. I personally prefer the high end of mem¬ 
ory since we can make adjustments to XBUF and the 
amount of data space used for buffers without having to 
worry about computing new load addresses for all the 
libraries. 

The Problem: At our installation we have several CPU's 
with different memory configurations. When we want to 
place the packs from one CPU on a different system, we 
have to recalculate the address to load the libraries or we 
wind up with either an ‘?lllegal byte count for I/O’ error 
message or fragmented memory. In addition, we also 
have foreign’ memory on our systems. Whenever a memory 
problem arises, the old “It’s the foreign memory" cry is 
heard and we have to pull it off the bus. Again a new ad¬ 
dress must be computed in order to successfully load the 
libraries. 

The Solution: These problems are not unique to our 
shop. A friend has the same problems at his installation and 
he suggested a program that calculates the amount of 
memory on the system and computes a load address for 
each library. Thinking it was a good idea, and not being able 
to resist a challenge, I have written a little utility which will 
add either a resident library or a runtime system at the 
highest available address in memory. The program checks 
for any locked out memory and the location of XBUF in an 
attempt to avoid any problems caused by disabling memory 
in the event of hardware problems or the placing of XBUF in 
an area of memory other than that immediately following 
the monitor and default runtime system. The program is 
run at system start-up time using an INIT.* command file. 

The input for ADDLIB consists of the amount of 
memory required by the library or runtime, a slash "/’’, and 
the name of the library or runtime to load and switches. For 
a resident library /REM. /IUSER. /RW. /NOLOG are valid 
switches. When a runtime system is requested. ADDLIB 
reads the default values from the last block of the runtime. 
The only valid switch for runtimes is /STAY. {What do you 
want from free software?) The program works to the best 
of my knowledge, it is currently installed on all our CPU’s 
and at several customer sites. However, Real-Time Software 


makes absoluteiy no commitment to support it and takes no 
responsibility for any errors in it. The program was coded in 
Basic Plus 2. It can be compiled under CSPCOM if you make 

the variable names use ‘.’s instead of ’_’s. If you wish to 

make it run under Basic Plus, I leave it to you to take it 
down to that level. 

The following is an example of an INIT command file 
used at system startup to run ADDLIB. 

: DBO: [1.21LIB.CMD 

: Function; RUN ADDLIB To add Resident Libraries 
: Edit Date: 26 May 82 

DETACH 
LOGIN KB:[1.2] 

FORCE KB: RUN [1.3]ADDLIB 
FORCE KB: 8/CSPCOM.LIB/STAY 
FORCE KB: 8/BASICS.LIB/STAY 
FORCE KB: 1/SRUN.LIB<0>/REM/RW 
FORCE KB: 1/[1.3]SP00L.LIB<0>/REM/RW 
FORCE KB: 

FORCE KB: 

FORCE KB: 21/EDT.LIB/REM 
FORCE KB: 

FORCE KB: BYE/F 
FORCE KB: 

ATTACH 


L 

Project ; In-IIouye Development & 

Protram : ADDLIB.B2S i 

Author ; Ed Heinrich & 

Real-Time Softwai'e, Inc. & 

42C Lexintton Avenue L 

New York, N.Y. 10170 & 

Function : Add Resident Libraries and Run-Time Systems & 

Edit Bate : 2^1-May-82 & 

Edit Level : VI. 00 & 

Inspiration : John Rechenberg of Avon Books & 

& 

& 

Copyright (C) 1982 & 

Real-Time Software, Inc. & 

New York, N.Y. 10170 & 

& 

The information in this software is subject to change without & 
notice and should not be construed as a commitment by t-. 

Real-Time Software, Inc. o 

& 

Title to and ownership of this software shall at all times & 
remain with Real-Time Softwar-e, Inc. & 

& 

This softwai-e is unreleased and Real-Time Software makes & 

no copmitDent to support it. & 


& 

& 

ADDLIB adds Run-Time System and Resident Libraries at the high & 


end of physical memory without the need for the operator to A 
compute a location. & 

& 

Input format: Length of memory needed, V, and & 

RTS or LIB name to add with any switches - & 

/STAY for RTS A 

/REM, /IUSER, /RW, /NOLOG for LIB 4 

<CR> or *2 to exit 4 

4 

Input exajr.ple: 23/RMSRES.LIB/REM 4 

Requires 23K of memory and requests removal from memory 4 

when no jobs are attached to it. 4 

4 







THSi 

HOUSEotViO: 


Under one roof, Hamilton provides all your VAX needs. 

Here’s how: 

RENTAL Latest VAX Systems for 6 to 24 month rentals, with full 
upgrade flexibility, purchase option and prompt delivery. 

TIMESHARING Extensive VMS based library of DEC layered prod¬ 
ucts, application packages and software tools. 

RSTS/RSX to VMS Conversion Services featuring fully supported 
PDF 11 operating systems for media and software conversion. 

SOFTWARE LIBRARY Including Word Processing, Data Base 
Management, Business & Engineering Graphics, Accounting, System 
Management and Accounting, Container (Dptimization, COBOL Program 
Generator. 

HARDWARE CONFIGURING All DEC systems and peripherals 

together with Hewlett Packard and Tektronix graphic devices, Dataproducts 
and Diablo printers, pretested and installed on your site with manufacturers 
warranty and maintenance available. 

VAX. VMS, PDPll. RSTS, RSX, RTll & CTS are trademarks of the Digital Equipment Corporation 


HAMILTON 

HGL Software Hamilton Rentals 

6 Pearl Court, Allendale, N.J. 07401 

TOLL FREE 800-631-029S 

In New Jersey 201-327-1444 

415 Horner Ave., Toronto, M8W4W3 
416-251-1166 

TOLL FREE 

Ont. & Que. S00-26S-2106 
All Other Prov. 800-268-0317 


NEW YORK • DALLAS • MONTREAL • CALGARY 
LONDON • PARIS • DUSSELDORF 


HAMILTON 

6 Pearl Court, Allendale, N.J. 07401 

Please rush me information on the following: 
(Circle and/or fill out items below) 

RENTAL 730/750/780 PDPll_ 

TIMESHARING APPLICATION_ 

CONVERSION RSTS RSX RTll CTS 

SOFTWARE_ 

HARDWARE _ 


Name_ 


Position_ 


Company_ 

Address_ 

City_ 


. State_ 


Zip_ 


Telephone Number. 
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120 1 4 

1 4 

1 MODIFICATION HISTORY 4 

I 4 

I Ver Edit Date Who Reason 4 

I VI.0 29-Apr-82 eah Original Release 4 

i 4 


! 

1 PROGRAM 

VARIABLES DEFINED 

4 

4 

1 Variable 

Used For 

4 

4 

! E_ND_MEM0RY1 

End of systems physical memory 

& 

1 F_ILE$ 

Run-Time or Library to Add 

4 

1 F_ILE1 

Pointer to the last block in .RTS 

4 

1 L_EN1 

Length of memory needed 

4 

! Q_1 

Bit map 

4 

1 S_WITCH$ 

Any switches to apply to the Add 

4 

! SyS_CALLl() 

Sys call work array 

4 

1 T_1 

Flag for switches present 

4 

! T_P1 

Flag for either .LIB or .RTS 

4 

4 


000 4 

f 4 

I WORKSPACE 4 

I 4 

DIM SyS_CALLt(30$) ! SYS work array 4 

\ DIM #11, F_ILE1(1121,2551) ! .RTS virtual array 4 

\ HAP (FIRQE) FIRQB$ = 30 I ! FIRQE capped 4 

\ MAP (FIRQB) FILL$ =81, 4 

M_EMLST1 4 

I 4 

! COMPIIF TIME VARIABLES 4 

! 4 

•faft••««•««««#•*• 4 

.DF.F1NF .PPG$ = 'ADULIE VI.O' 4 

\ .DEFINE .FN{:$ = "Real-Time Software, Inc. — Adds RTS's and LIB's" 4 
! Sope handy strings 4 

1000 laaateasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaeaaaaaaaaaaaaaaaaaaaaaaaaaaaa 4 

! 4 

! MAIN PR OOP AM LOGIC & 

! 4 

taaaacaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaacaaaaaaaaaaaaaaaa 4 

ON ERHCP GOTO 23000 ! Error traps 4 

\ PRIM #01 4 

\ PRINT #01, .PRG{ ♦ ET + R1UHT(SYS(CVT1$( 15^*51)) ,31) 4 

\ PRINT #01, .FNC$ 4 

! Progran identification 4 

2000 FlKQBt = SYS(CHr($(61) CHI!$(-3l)) 4 

! Get UU.Ttl 4 

\ T_EMP1 = PLEI'LSTI 4 

I Save it in tecporary variable 4 

2100 klllLE -11 4 

\ N_EXTX = PEEK(l_tMPX 21) 4 

\ GOTO 22C0 UNLESS N_EXT1 4 

\ T_EMP1 = N_EXT1 4 

\ X^BUFl = K_EXT1 IF (N_EXT1 AND 21) 4 

\ U_0CK1 = N_EXT1 IF (N_EXT1 AND 111) 4 

\ NEXT 4 

! Loop a while 4 

! Follow nenior-y list pointer-o until there aren't any more 4 

! Look for and save XBUF and Locked out memory locations 4 

! Save previous pointer if more 4 


2200 E_HD^EM0RY1 = PF.EK(T_EMP1 .f 81) / 321 4 

\ B_EG_XBUF1 = PEEK(X_BUF1 ♦ 61) / 321 4 

\ E_ND_J(BUF1 = E_EG_XBUF1 + (PEEK(X_BUF1 + 61) AND 2551) -U 4 

\ t-ND_RSTSl = PEEK(H_EMLST1 ♦ 61) AND 2551 4 

\ IF U_0CK1 4 

THEN B_EGJLOCKl = PEEK(L_0CK1 + 81) / 321 4 

\ ELND_L0CK1 = B_EG_L0CK1 (PEEK(U_0CK1 + 61) AND 2551) -U 4 

! Store the end of physical memory 4 

! Calculate the beginning and end of XBUF 4 

! Calculate end of monitor (Monitor 1st entry in MEMLST) 4 

! Check for locked out memory and compute it if some 4 

3000 ! tcode for input of data 4 

PRINT #01 4 

\ PRINT #01, 'Enter Length and Name of LIB or RTS to be Added '; 4 

! User Instructions 4 

3100 INPUT LINE #01, T_EMP$ 4 

\ GOTO 32000 UNLESS LEN(EDIT$(T_EMP$,-11)) 4 

\ 1_1 = INSTR(11,T_EMP$,'/') 4 

\ GOTO 3100 UNLESS I_1 4 

\ L_EN1 = VAL1(LEFT{T_EMP$,I_1-11)) 4 

\ T_EMP$ = EDIT$(RIGHT(T_EMP$,U+11),1891) 4 

\ CHANGE FSS$(T_EMP$,11) TO SyS_CALLl 4 

\ IF RECOUNT 4 

THEN F_ILE$ = LEFT(T_EMP$,LEN(T_EMP$)-RECOUNT) 4 

\ S_WITCH$ = RIGHT(T_EMP$,LEN(T_EMP$)-RECOUNT+1) 4 

\ T_1 = -11 4 

ELSE F_ILE$ = T_EKP$ 4 

I Take in a command 4 

I Look for amount of memory we need 4 

I Reprompt if we don't get an answer 4 

! Store it as integer 4 

! Clean it up a bit 4 

! Exit unless one 4 

I Do a file name scan (.FSS) on it 4 

I IF recount then we may have switches 4 

I Isolate file name and switches 4 

! Set flag for later use 4 

i ELSE Just save the whole mess 4 

3200 T_P1 =161 4 

\ T_P1 = 1281 IF RAD$(SYS_CALL1(111)+SWAP1(SYS_CALL1(121))) = 'RTS' 4 
I T_P1 is flag for RTS/LIB 4 

I Defaults to .LIB 4 

3300 SYS_CALL1(I_1) = 01 FOR I_1 = 111 TO 201 4 

\ GOTO 3'*00 UNLESS T_P1 = 1281 4 

\ GOSUB 10000 4 

\ GOTO 3600 UNLESS T_1 4 

\ Q_1 = 01 4 

\ SYS_CALL1(181) = SYS_CALL1(181) OR 1281 4 

IF INSTR(11,S_W1TCH$,'/STAY') 4 

\ GOTO 3600 4 

! Clean out part of the FIRQE 4 

! Skip over unless some switches 4 

! Look for /STAl (We take defaults from the RTS) 4 

3^00 Q_1 = 01 4 

\ QJE = Q_1 OR 21 IF INSTR(11,S_WITCH$,'/1USER') 4 

\ G_1 = Q_1 OR m IF INSTR(11,S_WITCH$,'/RW') 4 

\ Q_J = Q_1 OR 81 IF INSTR(11,S_W1TCH$,'/NOLOG') 4 

\ Q_1 = Q_1 OR 161 IF lNSTfi(11,S_WITCH$,'/REM') 4 

\ SYS_CALL1(181) = SYS_CALL1(181) OR 1281 4 

IF INSTR(11,S_WnCH$,'/STAY') 4 

UNLESS Q_1 AND 161 4 

! Look for Lllrary switches 4 

! Check for possible confict on stay switch 4 

! (/REM taker, precedence) 4 

360 c ! compute an address to add at 4 

L_0AD1 = E_ND_MEMCRY1 - L_EN1 4 

\ E_ND_MEMGRY1 = U_GAD1 4 

! Subt 
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CALL FOR LATEST PRICES 

( 201 ) 231-9400 
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o UNITRONIX 

CORPORATION 


197 Meister Ave. Somerville, NJ 0887 
TELEX; 833184 


CPUs 

POP 11/23 
11/44 & VAX 

INTERFACES 

MODEMS 


COMPLETE 
DATA SYSTEMS 


with standard 
and 

custom 

software 


TERMINALS 

VT100 LAI 2 
VT101 LA34 
VT102 LA50 
\/T125 LAI 00 
VT131 LA120 


SPECIAL 

LSI-11 MOUIXES. PERSO.\i\L CXIMPIXERK 


CIRCLE 25 ON READER CARO 
















From now on, 
there's only one choice 
for financial modeling 

software: 

MAPS/HOST 

MAPS/PRO 

(well, maybe two choices) 


MAPS/HOST runs on DEC'S PDF and 
VAX computers. MAre/PRO runs on 
DEC'S new Professional 350 desktop 
computer. 

Both have a common planning 
language. Both feature large multi¬ 
dimensional worksheet capacity, user- 
friendly dialog, visual data editing, 
unlimited logic with extensive financial 


functions, multi-level hierarchical 
consolidations, "what if" and 
sensitivity analysis, target-seeking, a 
built-in financial database subsystem 
and business graphics. 

Call us tollfree at (800) 547-1000 
(in California call (415) 856-1100) 
or return the coupon for further 
Information. 



ross systems 

fncorporared 


1900 Embarcadero Road 
Pblo Alto, CA 94303 
(415) 856-1100 


Regional Offices: riewYorK 
Dallas, San Francisco, Los Angeles 


Ross Systems 1900 Embarcadero Road, Pblo Alto, CA 94303 

Send me information on 
1 L/O MAPS/PRO and MAPS/HOST 

MAME 

TITLE 

COMPAHY 

ADDRESS 

CITY, STATE, ZIP 

TELEPHOHE RSTS 1082 
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THE RSTS CRYSTAL BALL — Part 3 

By Michael C. Greenspon, Integral Information Systems. Los Angeles. California 

No portion of this document may be reproduced for profit without the express 
written permission of Integral information Systems. 

The information in the document is believed to be accurate and correct, however In¬ 
tegral Information Systems assumes no liability for any errors which may appear in this 
document, or any changes which may occur in the described software. 


Greetings, fellow RSTS users. This month, the Crystal 
Ball offers monitor enhancements, late breaking news on 
V7.2, and other items of interest to the RSTS community. 

RANDOM 

Before I dive into monitor hacking. 1 have a few random 
notes for you. The following definition was (anonymously) 
submitted last month. I thought I'd pass it along to you. 
DCL \ dee' cee ehl \ abbr. [cs. DEC'S "user interface"] 
1: Decrepit Command Language. 2: Command 
Language of the Damned. 3: DEC'S Colossal Lossage. 

If you program in TECO, or even if you don't, consider 
this little gem. I wish 1 could give credit to the author, but. 
alas, the version 1 have is completely uncommented, and I 
have no idea where it came from. Note that any dollar signs 
($) in the following listing are really ESCapes, and uparrows 
(t) indicate control characters. 

+ OUN QN -E20UN ' 

BUH BUV HK 

QN< J BUQQNM0/3UI 

Ql< \+2M0 + (QQ-QI)UA 

BLKQI*2-1UJQA/QJUQ 

QA-(Q(}'()J)-2\ 10@l// -1%l t 

QQ/10UT QH + QT+48UW QW-58”E 48UW %V ' QVN QVIT ' 

QWUV QQ-iQT- 10)UH > 

QVIT @tA/ 

/$$ 

Don't feel bad if it isn't immediately obvious to you 
what this macro does. It's name is Pl.TEC. It takes one argu¬ 
ment, the number of digits to calculate (default is 20), and 
outputs the value of pi on the terminal. The more digits of 
precision you ask for. the longer it takes to calculate each 
one. I have run it successfully with an argument of 1000, 
however, it took over a week to complete on our 70. If 
anyone knows who the original author is. please drop me a 
note. 

MONITOR ENHANCEMENTS 

If DEC saw the copy of RSTS that we are running, they 
probably wouldn't recognize it. Our monitor is quite non¬ 
standard. due to many features I have added. My latest 
monitor hack is an implementation of system load averages, 
similar to those maintained by Tenex, TOPS-20, etc. 

Load average is a figure which gives an immediate, ob¬ 
vious indication of system loading. Basically, load average is 
the number of processes (or jobs, in this case) needing CPU 
time, averaged over a period of time. (Conversely, you can 
think of load average as the average number of CPUs it 
would take to give everyone full attention.) Three averages 
are maintained: 1, 5. and 15 minutes. 


The averages are internally computed using pseudo 
double-precision math, and are normalized to 16 bits for 
ease of use. The averages are fixed point, and are accessed 
by PEEKing at cells in monitor memory. I have modified my 
MACRO-11 SYSTAT program to print the averages (like 
T0PS20), and it would be trivial to modify DEC'S SYSTAT to 
do the same. Eventually, I will rewrite the TTSYST code (con- 
trol/T) and include the one minute load average in it (again, 
like T0PS20). 

The source for the load average code (LOADAV.MAC) is 
listed at the end of the article. The load average computa¬ 
tion routine is called once a second through the DECnet NSP 
timeout hook. I used this since it is directly accessible in 
source form from TBL.MAC; i.e., requires no binary patches. 
I modified the hook so that DECnet SHOULD still work, 
however since our sites are running our own kludge-net for 
the moment. I can't guarantee this. (If you have problems, 
contact me and I'll investigate.) 

Once a second, every second, the load average code 
scans JOBTBL and counts the number of Jobs in a run state. 
Optionally, it will include jobs in a disk wait, or any other 
type of wait, so if your system is disk bound, the load 
average will still "feel right." The code then takes this count, 
averages it into the old buckets, and normalizes the result to 
16 bits. The computation routine is all executed at priority 3, 
and it is very short, so system impact should be minimal. 
(For those of you who are still having small buffer problems, 
the load average code takes up about 3-4 small buffers.) 

The normalized result is stored as load average multi¬ 
plied by 100 decimal. The three load averages are stored in 
three consecutive words. The address of these words is po¬ 
inted to by a word I have located in TTDINT, directly 
preceding TTYHCT (i.e., at TTYHCT-2). Since the TTYHCT ad¬ 
dress is returned by the get monitor tables call, it is easy to 
find the load averages, and without hard-coding an address 
in your programs. 

I am currently running the load average code under 
V7.1, and it should work without problems under V7.0 and 
later. 1 have not encountered any complications as a result of 
this code, but please remember that it is unsupported and 
will void any DEC software service agreements you have. 

Installation of the load average code is quite simple. The 
files TBL.MAC and TTDINT.MAC (on the RSTS sysgen tape) 
need to be modified. CPATCH command files to do this are 
listed in figures 1 and 2. The source file LOADAV.MAC must 
be assembled and linked with RSTS in the sysgen process. 
LOADAV.MAC should reside on the current account during 
sysgen. The CPATCH command file to modify SYSGEN.CTL 

... continued on page 51 



TRmAHiT 

The system that offers 
Productivity, Accuracy 
plus More. 






MU 



PROaUCTIUTY 

TRIDAKIT is a set of 
application development 
modules that automatically 
generates up to 90% of pro¬ 
gram code four times faster 
than conventional program¬ 
ming methods. Programmers 
can instruct TRIDAKIT to 
produce on-line applications 
with simple easy-to-use 
commands. 

Incorporated in TRIDAKIT is 
a powerful file management 
system which can open and 
maintain 255 files simulta¬ 
neously. TRIDAKIT based 
applications allow for 
caching of files, reduced use 
of the File Processor (FI P), 
and a reduction in the use 
of small buffers. 


ACCURACY 

Included with TRIDAKIT are 
documentation, program¬ 
ming, operations and project 
management modules. 
Application program code 
errors are practically elimi¬ 
nated. 

Detailed documentation is 
automatically produced as a 
by-product of the application 
definition. Changing the 
documentation changes the 
program code. With 
TRIDAKIT, each member of 
the project team always has 
the latest, most up-to-date 
version of the documenta¬ 
tion. 


PLUSMORC 

Security is strictly enforced 
with TRIDAKIT. Each user of 
TRIDAKIT must be defined 
before an application can be 
accessed. 

TRIDAKIT is responsive to 
special problems that are 
commonly forgotten in appli¬ 
cations such as audit trails, 
I/O tracing and “point-of- 
failure” data base recovery. 
These are automatically in¬ 
cluded in TRIDAKIT based 
applications. 

lIMfORMATiaiM 

If you would like more infor¬ 
mation on how you can 
increase application devel¬ 
opment productivity with 
TRIDAKIT, phone or write 
today. 


RSTS/E is a registered trademark of Digital 
Equipment Corporation. 



Tridacor Systems, Inc. 

820 FREEWAY DRIVE NORTH • COLUMBUS. OHIO 43229 • (614) 431-0805 
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RSTS/E 3271 DATA COMMUNICATIONS 

By Michael H. Koplitz 


RSTS/E 3271 protocol emulator (PE) allows a user pro¬ 
gram on a RSTS/E system to exchange data with an IBM 
370 series computer. The IBM can be running either 
CICS/VS or IMS/VS operating system. 3271 PE emulates 
the IBM 3271 device. The RSTS/E system requires an addi¬ 
tional software package and some additional hardware. 

IBM’s 3271 

The IBM 3271 is a hardware device that controls up to 
thirty-two printers and display terminals. 3271 is a part of 
the 3270 Information Display System (IDS). The 3270 IDS 
subsystem is a fixed function, terminal-oriented system 
designed for use in an on-line interactive data communica¬ 
tions environment. The host IBM computer looks for input 
data from each of its transmission control unit (TCU) 
resources. The TCU controls data between the 3271 units at¬ 
tached to it. The IBM utilizes polling . The polling employs a 
round-robin method to see if each TCU has any messages. 
Every TCU is polled for information. 

RSTS/E does not use polling. RSTS/E uses a vector in¬ 
terrupt scheme. RSTS/E will only respond to a terminal if it 
informs the CPU that data is waiting. This is a more effi¬ 
cient system. If one user is on the IBM. he must wait for all 
TCUs to be examined before his entries are processed. On 
the RSTS/E system the one user would have exclusive use of 
the system because his would be the only terminal 
interrupting the CPU. 

RSTS/E 3271 EMULATION 

RSTS/E 3271 is a combination of hardware and soft¬ 
ware. The major difference between IBM and RSTS/E 3271 
is that the RSTS/E 3271 requires some program interface. 
The user program is responsible for transmitting and pro¬ 
cessing data. A KMC11/DUP11 device pair is used to 
transmit data between the PDP-11 and IBM 370. The 
KMC11/DUP11 supports up to eight simultaneous com¬ 
munication iinks. 
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PDP-11 RSTS/E 3271 COMPONENTS 

HARDWARE REQUIREMENTS 

The hardware needed for RSTS/E 3271 communica¬ 
tions is: 

1. DUP11 

2. KMC11 

3. Modem 


DUP11 

The DUP11 is a synchronous serial line interface 
which is capable of "full duplex" communications. The 
DUP11 translates serial data to parallel data and also 
translates parallel data to serial data. Data is transmit¬ 
ted to the DUP11 from the UNIBUS in parallel. The 
communication channel must have serial data trans¬ 
mission capabilities. The DUP11 can transmit data at a 
maximum speed of 19200 bits per second. 

The DUP11 supports DIGITAL'S DDCMP and IBM's 
Bi-SYNC protocols. A double-character-buffer is utilized 
for receiving and transmitting data. This feature allows 
for maximized data throughput. The DUP11 can be 
placed in a multiport network. The DUP11 adds the 
SYNC characters that IBM requires and also strips 
these SYNC characters when data is returned from the 
IBM. 

KMC11 

The KMC11 is a general purpose microprocessor 
with UNIBUS compatibility. The KMC11 is used to 
reduce the load on the CPU and is therefore used to be a 
data handler rather than a data processor. The func¬ 
tions of the KMC11 are determined by the micropro¬ 
gram contained in its instruction memory. The KMC11 
is not programmed to modify its own instruction area, 
therefore the CPU must load this area for the KMC11. 

In 3271 PE communications the KMC11 performs 
the following functions: 

1. Monitors the synchronous communications line 
via the DUP11 for line errors. 

2. Maintains the binary synchronous communica¬ 
tion (BSC) line discipline required for interprocessor 
communications. 

3. Translates EBCDIC to ASCII and ASCII to EBC¬ 
DIC. 

4. Calculates the CRC-16 (cyclic redundancy check 
function 16) for both incoming and outgoing data 
blocks. It validates CRC-16 on the incoming data’s block 
check characters (BBC). 

5. Controls transfers of messages between itself 
and the PDP-11 memory. The PDP-11 CPU is not involv¬ 
ed in this transfer. 

6. Handles the conversational BSC polling se¬ 
quence. 

7. Handles the conversational BSC protocol as im¬ 
plemented by the IBM 3271. 

MODEMS 

Any of the following modems or equivalents is 
needed at both ends of the communication line. 

1. Bell 212 (1200 bits/second) 

2. Bell 201C (2400 bits/second) 






















♦DEC. PDP-ll and VAX are trademarks 
of Digital Equipment Corporation. 


Running a manufacturing plant requires a 
constant flow of timely information. Not just in 
terms of nuts and bolts. But in dollars and cents. 

And MAXCIM provides precisely that. 
On-line, real time information... from the pro¬ 
duction line to the bottom line. 

It’s the ultimate manufacturing and finan¬ 
cial management system. Designed specifically 
to maximize your plant’s productivity. And min¬ 
imize costs. Operating on-line, in an interac¬ 
tive mode, MAXCM is a comprehensive 
system of manufacturing and financial software 
modules integrated through one common data¬ 
base ... a system which provides immediate 
inquiry capability to manufacturing, finance, 
engineering and marketing. So management 
can control the entire manufacturing process. 
While it’s still in process. 

Designed to run on *DEC PDP-11 and 
VAX minicomputers, MAXCIM is user friendly. 
Data entry and inquiry are menu-driven via 
standard CRT and teleprinter terminals. 

So plant personnel don’t have to be data 


processors to process the data they need. On 
the other hand, you’ll like the system’s sophis¬ 
tication. Modular flexibility. Multi-level security. 
Extensive audit trails. And graphics capability. 

You’ll also appreciate the complete system 
documentation we provide. And the profes¬ 
sional training, installation and support services 
you receive. All backed by the experience 
we’ve gained working with hundreds of 
companies, large and small. 

If you’re looking at manufacturing and 
financial management systems, you can’t afford 
to overlook MAXCIM. No other system is so 
comprehensive. So flexible. Or so well-supported. 
Call NCA today. Or write for our brochure. 


NCA CORPORATION 
Manufacturing/ 

388 Oakmead Parkway 
Sunnyvale, CA 94086 
(408) 245-7990 


m 


Baltimore • Boston • Chicago • Dallas • Houston • Los Angeles • Portland • Sunnyvale/Sydney, Australia 
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3. Bell 208 (4800 bits/second) 

4. Bell 209 (9600 bits/second) 

SOFTWARE REQUIREMENTS 

The 3271 PE package must be purchased from DEC: 
this is a separate software package. There are two drivers 
that are added to the monitor. The microprogram for the 
KMC11 and two 
utility programs 
come with the 
package. The rest is 
up to the user. 

SYSGEN OPTIONS 
During SYSGEN 
time the 3271 PE 
support must be ad¬ 
ded to the monitor. 

The SYSGEN ques¬ 
tions are: 

KMCII’s 
* 00 * 

1 

Do you wish 
IBM protocol sup¬ 
port ’NO* YES 


KMCUT.BAS 

KMCUT.BAS is a BASIC-PLUS compiled program 
which directs the IIDVR and XKDVR to initialize the 
KMC11 /DUP11 communication link, it also can termi¬ 
nate the link. KMCUT.BAS aiso causes the ioading of 
the KMC11 microprogram. 

MTO.BAS 

MTO.BAS 
allows the 
system mana¬ 
ger to monitor 
the communi¬ 
cation link. 
Communication 
line status can 
be displayed. 
Amounts of 
data going back 
and forth can 
be examined. 
RSTS/E buffer 
space, used by 
3271 can be 
manipulated. 



Software Tools for RSTS/E 


Evans Griffiths & Hart, Inc., a pioneer in the development 
of RSTS and the winner of an ICP million dollar award for 
KDSS and TAM, offers packages that save you time and 
improve your productivity. 

• KDSS, a complete multi-terminal key-to-disk data entry subsystem. 
Eliminates the need for keypunching and stand-alone key-to-disk sys¬ 
tems. (Also available for VAXWMS and RSX-IIM.) 

• TAM , an efficient multi-terminal screen-handling facility that provides 
complete support for the development of transaction-processing appli¬ 
cations on a wide variety of terminals. (Also available for VAXA/MS and 
RSX-I IM.) 

• FSORT3, a very fast sort/merge package for RMS and non-RMS files. 
More economical of disk space than SORT-11 and much faster. 


IIDVR 

The II: driver is 
the input/output in¬ 
terface between the 
RSTS/E program 
and the KMC11 pro¬ 
gram. The II: driver 
also performs the 
following functions: 

1. Strips 
buffer control 
orders from in¬ 
coming data 
and adds a min¬ 
imum set of 
outgoing data. 

2. Main- 
tains control 
blocks. 

3. Maps 
the RSTS/E job 
and channel 
numbers to IBM 
terminal device 
addresses. 

4. M0ni- 

tors the amount of data being transferred, prevents 
too much data from being queued in the PDP-11 for 
any given terminal. 

XKDVR 

The XKDVR is the RSTS/E device handler for the 
KMC11 and DUP11. XKDVR initializes the KMC11 and 
DUP11 and monitors their activity. 


THE USER 
INTERFACE 

The user inter¬ 
face to 3271 PE can 
be written in four 
languages: BASIC- 
PLUS, BASIC- 
PLUS-2. COBOL and 
DIBOL. The least 
cumbersome way is 
via BASIC-PLUS or 
BASIC-PLUS-2. Ac¬ 
cess to 3271 PE is 
done by OPENing the 
KMC11 on a RSTS/E 
channel. The KMC11 
is identified as lln:. 
where n can range 
from 0 to 7. The lln: 
is analogous to the 
lineprinter device 
LPn:. 

To create the 
data communication 
link with 3271 PE 
the program must 
OPEN the KMC11. The open statement is in the form: 

OPEN lln: AS FILE '»X%. RECORDSIZE A%. FILESIZE C%. MODE D% 

The RECORDSIZE, FILESIZE and MODE clauses are op¬ 
tional. The lln: actually associates the channel with the 
IIDVR. The IIDVR, which is part of the monitor, is sent the 
data from the Job. The IIDVR also transmits the information 
back to the Job. X% is the channel number and must be bet¬ 
ween one and twelve. The RECORDSIZE clause is used to 


. SELECT, a convenient, very fast package for scanning files to extract 
records that meet user-specified selection criteria. Use as part of an 

• online inquiry system and as a front end for building file indices and 
generating reports. SELECT and FSORT3 can save hours in nightly batch 
runs. 

• BSC/DV, a RSTS/E device driver for the DEC DVl 1 synchronous mul¬ 
tiplexer. Suitable for handling a wide variety of bisynchronous protocols. 
(Also available for VAX/VMS.) 

• COLINK, a convenient, efficient link between two RSTS/E systems 
using DMC11 s or DMR11 s without the overhead of DECnet. Supports 
file transfers, virtual terminals, and across-the-link task communication. 

• DIALUP, a comprehensive, efficient link between RSTS/E and other 
systems using asynchronous terminal lines. Supports file transfers, vir¬ 
tual terminals, auto-dialing, and the use of command files and macros. 
The premier RSTS/E package for remote support and reliable, CPU- 
efficient file transfers. 

DEC, DECnet, RSTS, RSX, VAX, and VMS are trademarks of Digital Equipment Corporation. 

Call or write for complete descriptions of features and benefits. 


Evans Griffiths & Hart, Inc. 

55 Waltham Street, Lexington, MA 02173 

(617)861-0670 






SOIVES YOUR RESPONSE TIME MYSTERY 



RESPOND 


RESPOND 


RESPOND 


RESPOND 


RESPOND 

RESPOND 

RESPOND 


TIME: Late 

PLACE: Under the gun 

CLUES: The RSTS/E* system's slow. Performance is under par. Users are 

unhappy. Hardware budget is gone. Conclusive evidence is lacking. 


SOLUTION: 

is Manus’ newest RSTS/E tuning tool. 

provides the information you need to tune your 
RSTS/E system. 

tells you where the bottlenecks are. 

measures response time exclusive of 
application program inefficiencies. 

logs statistics and jobs mix. 

reports tuning statistics in usable format. 

shows resource utilizations by program, 
keyboard and user account. 

ranks programs by resources used. 

reports long-term trends in summarized form. 

tells who did what, when and from which 
keyboard. 

warns you when free disk or small buffers are 
critical. 

logs out inactive terminals. 


My system needs RESPOND 
Send information kit. 

Name_ 

Company_ 

Address_ 



Phone 


MAKING COMPUTERS WORK FOR YOU 



1 

T 

T 


11 

j 


1 



SERVICES 


CORPORATION 


AUTHORIZED 


COMPUTER DISTRIBUTOR 

MANUS SERVICES CORPORATION 

SEATTLE: 1700 Westlake Avenue North,^8109 • (206) 285-3260 
PORTLAND: Kristin Square. Suite 102,9498 SW Barbur Blvd. 97219 • (503) 245-1261 


1 


J 


*RSTS/E is a registered trademark of Digital Equipment Corporation 


CIRCLE 39 ON READER CARD 

































Page 18 October 1982 

RSTSPR0FESSI0NALRSTSPR0FESSI0NALRSrSPR0FESSI0NALJ^STSPR0FESSI0NALRSTSPR0FESSI0NALJ^STSPR0FESSI0NALR5TSPR0f^l0NAlJ«TSPR0FESSI0NALRSTSPfK)FESSI0NALRSTSPB0FESSI0NAlJ^STSPR0FESSI0NALJ«^ 


^ DEC best values 

PRE-OWNED DEC EQUIPMENT 


BUYING AND SELLING 

SYSTEMS • CPU's • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

dataware 

^ incorporated 

Corico Center 

2845 NW 62nd Street 

Ft Lauderdale, Florida 33309 

Telephone (305) 979-2844 y 


1% Screen-format mode. The RSTS/E 3271 PE will 
not add 3270 AID characters to data transmitted 
to the IBM system. It will not strip these 
characters when data is returned. If the user pro¬ 
gram is developed to handle 3277 terminal 
screen formats then this mode is used. PUTs are 
limited to 249 bytes. 

1000% Non-screen with specific address mode. This 
mode indicates that the user wishes to connect to 
a particular device address. Non-screen format is 
used. 

1001% Screen format with specific address mode. This 
mode indicates that the user wishes to connect to 
a particular address and use screen-format mode. 

5000% Reserved for DIGITAL field service personnel. 

Some examples of KMC11 open statements: 
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define the buffer length that will be used to store data sent 
and received. This value becomes the maximum amount of 
data that can be sent at a given time. 

The FILESIZE clause is used to connect the channel to a 
specific IBM address. Each of the eight terminals assigned to 
a KMC11 is assigned a specific hexadecimal address. If the 
user wishes to connect directly to one of the eight ad¬ 
dresses. the decimal equivalent of that address is placed in 
the FILESIZE clause. 

The MODE clause is used to establish special properties 
for the IIDVR. These values are: 


Value Meaning 

0% Non-screen mode. This value is used if the MODE 
clause is omitted. PUTs are limited to 248 bytes. 
Do not use this mode if the host IBM is using IM- 
S/DC. 


RSTS PROFESSIONAL 1 

Box361 . FtWashington.PA 19034-0361 . (215)542-7008 

□ PAYMENT ENCLOSED for one year s subscription (6 issues). 

US 3rd class. $35 / Canada & US 1st class. $50 US / I 

All other countries air mail. $60. payable in US dollars. I 

□ BILL ME for one year's subscription; i 

□ US 3rd class / □ Canada or US 1 st class / □ Other foreign. ' 


Please send BACK ISSUES circled: 

□ $10 per issue enclosed. 

□ Bill me for $12.50 per issue. 


V. 1. " 1 V. 2. *3 
V. 2. " 1 V. 2. "4 
V. 2. "2 V. 3. «1 


y.3.»2 V. 4. «1 

V. 3. »3 V. 4. «2 

V. 3. «A V. 4. «3 


V.4. »4 


Send me a RSTS PRO 

^ Tee Shirt - ^6.95 E @ E 0 (Adult Sizes Onlyl 


Name _ 
Address 


Suite 


City/State/Zip___ 

Country_Phone ( )- 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word thereafter. 


SPECIAL 

All 13 Back Issues for $90.00. Payment with order. 


OPEN • IIO:" AS FILE *1%. RECORDSIZE 1920% 

OPEN ■ 111:" AS FILE »2%. RECORDSIZE 248%. FILESIZE 193%. MODE 1001% 

Sending data to IIDVR to be transmitted to the IBM 
host is done via the PRINT or PUT statement. The PUT state¬ 
ment must be used in conjunction with the FIELD state¬ 
ment. The PRINT and PUT statements are used in the same 
way here as they would be If the information were being 
displayed on a terminal. Remember that the output buffer 
MUST be built in such a manner that the IBM host will 
understand the message. 

When the data buffer Is transmitted to the IIDVR, user 
buffer space is used to hold the message until the message 
can be taken by the XKDVR and actually transmitted. The 
XKDVR then waits for the IBM to acknowledge the receipt 
of data. The SLEEP statement can be used to temporarily 
stall the Job until data is received from the IBM. 

SLEEP n% +32767%+ 1% 

n% is the amount of seconds to wait. If there is data 
waiting the control is returned immediately to the program. 
If no data is waiting then the program sleeps. If the time ex¬ 
pires then an error message is generated. 

The GET statement in combination with the FIELD 
statement is used to retrieve data from the IBM. The GET 
statement has the same form as when doing block I/O. An 
error is generated if no data is waiting in the buffer. 

Finally, the CLOSE statement is used to terminate the 
I/O over the channel. Any pending incoming messages are 
discarded and system buffers are returned (experience says 
that not always are incoming messages discarded: inform 
users to terminate their IBM applications before ter¬ 
minating the RSTS/E software). 

CLOSE *1% 

This CLOSE statement will terminate the data link on chan¬ 
nel one. 

REFERENCES 

Digital Equipment Co. Manuals: 

RSTS/E 3271 Protocol Emulator User's Guide 

System Generation Manual 

KMC11 Microprocessor User's Manual ^ 
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Computer ills ??? 

We Have 
The Prescription 




When you suffer with the pain of all 
or part of your computer system 
down, call us. Tymshare computer 
maintenance offers prescription 
maintenance, time and material services, 
mixed vendor service support, depot level 
repair and refurbishment programs, and 
training classes covering systems operation 


and equipment repair. 

We have what it takes to make your in¬ 
stallation healthy and a preventive 
maintenance program to keep it that way. 

For more information on how our 
maintenance programs will best fit your 
needs, call.... 



COMPUTER SYSTEMS and SUPPORT DIVISION 


n 


IVMSmilE 


EAST: 10111 George Palmer Hwy. / Bowie, Md 20716/301)459-8363 
CENTRAL: 11999 Katy Freeway / Houston, Tx 77079/(713) 870-0923 
WEST: 3300 Capital Avenue / Fremont, Ca 94538 / (415) 794-2538 
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PROTCr.BZS 

By Ralph Zwier. Professional Software. Victoria. Australia 


PROTCT is a program to toggle the protect bit of a file. 
To briefly recap the RSTS directory, the UFD of any RSTS ac¬ 
count on disk contains a UFD NAME ENTRY for each file in 
the UFD. One of the bytes in the name entry is the STATUS 
BYTE which contains status information on the file. PIP 
prints out some of the status information in a directory 
command. 

One of the bits in the status byte is the protect bit. If 
this bit is set no DELETE/RENAME is allowed by RSTS no 
matter how privileged the user. RSTS uses this bit to protect 
the following files in account [0.1]: 


BADB.SYS 

SATT.SYS 

INIT.SYS 

MONITR.SIL 


on all disks 
on all disks 
on bootable disks 

on system disks where MONITR is the 
INSTALLED Monitor SIL file 


DEFAULT.RTS 

SWAP.SYS 
CRASH.SYS 
ERR.ERR 
One of the items 


on system disks for the default Run¬ 
time System file 
on system disks 
on system disks 
on system disks 

on the RSTS wish list has been a UTILI¬ 


TY command UT PROTECT DBO: [8.6]MYFILE.DAT which 
would set the protect bit on the selected file. PR0TCT.B2S 
will protect or unprotect a file by toggling the protect bit for 
that file. Its basic use is to protect System Managers or 
other privileged users from themselves. 

We use PROTCT to aid in keeping well-structured disks. 
We create a protected zero-length file LOCK.LCK at the 
beginning of each UFD to prevent users from zeroing a con¬ 
tiguous directory. 

In theory the program could be used to modify any of 
the status bits: 

I am particularly thinking of a situation I know of 
where a file was contiguous, and someone used UTILITY to 
flag it as non-contiguous to try to fix a Protection Violation 
error. The program error had nothing to do with the con¬ 
tiguity of the file and we wanted to flag the file as con¬ 
tiguous. At the time what we did was copy the file 
someplace else, delete it and recreate it contiguous. 
However, this program could have quicky been patched to 
toggle the contiguous bit. 

I have also thought that maybe it’s possible to toggle 
the “Marked for Delete" bit to bring back a file? I am wary 
of trying it because for an open file there is a memory- 
resident FCB which will have the MDL bit set: This means 
that the FCB is inconsistent with the DIRECTORY . .. 


1 EXTEND 

2 J PROTCT.B2S 

* ! TOGGLE THE PROTECT BIT FOR A FILE 

! IN THE USTAT BYTE OF THE UFD 
1 

100 DIM t2%, U%(3583%,7%) 

\ ON ERROR GO TO 19000 

1 

1000 IMAIN PROGRAM 

PRINT 'PROTCT - Protect/Unprotect files in a UFD' 

! 

2000 PRINT 'PPN'; 

\ LINPUT S.PPNS 

\ PPNS=CVTS$(S.PPN$,-1%) 

\ GO TO 32767 UNLESS LEN(PPNS) 

\ PPN$ = '(' ♦ PPNS UNLESS INSTR(1%,PPNS,'(') > 0% 

\ PPNS = PPNS + ')' UNLESS INSTR(1%,PPNS,')') > 0% 

\ INPUT 'Device';DEVS 
\ DEVS * 'SY:' UNLESS LEN(DEVS) 

\ DEVS « DEVS + ';' UNLESS INSTR(1%,DEVS) > 0% 

\ OPEN DEVS+PPNS+'/MODE:8192' AS FILE #2% 

\ U.CLSZ% > U%(31«,0%) 

\ 1% - FNGET.LINK%(U%(0%,0%),U.CLSZ%) 

1 

2500 F.NAME1S-RADS(U%(I%,1%)) 

\ F.NAME2S-RADS(U%(I%,2%)) 

\ EXTS-RADS(U%{I%,3%)) 

\ PRINT 'Blockette ';1%;F.NAMElS+F.NAME2S+'.'♦EXTS; 

\ USTAT%- 255% AND U%(I%,4%) 1 STATUS WORD 

\ USTATS-'' 

\ USTATS-USTATS ♦ 'D' IF USTAT% AND 128% I MDL 

\ USTATS-USTATS + 'C IF USTAT% AND 16% 1 Contiguous 

\ USTATS-USTATS ♦ 'P' IF USTAT% AND 32% I Protected 

\ USTATS-USTATS ♦ 'L' IF USTAT% AND 2% I Located 

\ USTATS-USTATS ♦ 'W' IF USTAT% AND 4% 1 Write access 

\ PROT% - SWAP%(U%(I%,4%)) AND 255% 

\ PRINT '<';PROT%j'>';' ';USTATS;TAB(35%); 

\ GOSUB 30500 1 DO we want to toggle bit 5 (32%) 

\ I%-U%(I%,0%) 

\ I%»FNGET.LINK%(I%,U.CLSZ%) 

\ GO TO 2500 UNLESS I%-0% 

! 

1 Crawl through the NAME Blockettes displaying the file 
! names and the status byte together with the blockette 
1 number (just for interest). Jump to routine which asks 
! whether we want to toggle bit 5 of the USTAT. If we answer 
1 "YES" (sic) bit 5 gets toggled. It may be possible for 
! someone to gry toggling bit 7 to GET BACK A FILE 
! WHICH HAS BEEN MARKED FOR DELETION but I haven't done it 
! 

3000 CLOSE 12% 

\ GO TO 2000 

19000 1 

lERROR TRAPS 
1 

19010 ES - RIGHT(SYS(CHRS(6%)^CHRS(9%)+CHRS(ERR)),3%) 

19020 IF ERL - 2000 THEN PRINT 'Invalid device or PPN" 

\ RESUME 2000 
1 

19030 IF ERL-30500 THEN RESUME 30550 

19990 PRINT CHRS(7%);ES;'IN ';'PROTCT at line ';ERL 

\ PRINT 'Aborting...' 

\ RESUME 32767 

I 

30000 (FUNCTION TO GET THE LINK TO 

(THE NAME BLOCKETTES 

DEF FNGET.LINK%(LINK%,CLUSTERSIZE%) 

-(((LINK% AND 3584%)/512%)*CLUSTERSIZE% 

>(SWAP%(LINK% AND -4096%)/16%))*32% 

♦((LINK% AND 496%)/16%) 

( 

30500 (FUNCTION TO TOGGLE BIT 5 OFTHE 

( USTAT BYTE IN THE UFD 
( 

INPUT NEXT$ 

\ IF NEXT$ = 'YES' 

THEN 

CLOSE 42% 

\ OPEN DEV$-«-PPN$ AS FILE 12%,MODE 16384% 

\ U%(I%,4%) « U%(I%,4%) XOR 32% 

\ CLOSE 12% 

\ OPEN DEVS + PPNS AS FILE #•2%, MODE 8192% 

( 

30550 RETURN 

( 

( Check whether we want to PROTECT/UNPROTECT. If so 
( reopen the UFD in secial mode and do it. On 
( completion close the UFD in special mode and re-open 
( it safely. We deemed it inadvisable to hold the UFD 
( open in mode 16384 for the whole run, and the 
( inefficiency of the code is a small price to pay 
( for the added safety. 

( 

32767 BND 













EMULEX ANNOUNCES 34 NEW DISK 
SUBSYSTEMS FOR DEC USERS. 


As a confirmed DEC user you've probably been 
secretly coveting some of the powerful new 
drives DEC doesn’t offer. Or wanting lower prices 
and faster delivery than you’ve been getting. 

Well, you can get them from Emulex ready to 
plug in and run on your DEC LSI-11, PDP-11, or 
VAX-II. You choose from Control Data Winchester, 
removable pack and fixed/removable drives up 
to 675 MBytes. 


Emulex is known worldwide as the DEC con¬ 
troller expert. Over 7500 delivered. So we’re a 
natural to provide you with the widest choice of 
complete disk subsystems you’ve ever seen. 

Featuring more performance and higher reliabil¬ 
ity than you’ve ever dared hope for. 

Plus total service support-anything from 
subsystem to whole system service-up to and 
including your DEC computer from companies 
like Control Data, GE, and Tymshare. 


Of course, Emulex subsystems can save your 
company plenty. And we have an attractive rental/ 
purchase option to solve any financing worries. 

So call us right now. We’re the best friend a dedi¬ 
cated DEC user could have. 

Call (800) 854-7112 toll-free, outside California. 
In California, call (714) 557-7580. Emulex Sys¬ 
tems Group, 2001 Deere Ave., Santa Ana, CA 92705. 
TWX 910-595-2521. 




For LSI-11/23 0-BUS: 

80 MB Removable Emulates 
DEC RM02/03 


For LSI-11/23 0-BUS: 

64 MB Fixed/Removable 
Emulates DEC RK06/07 



For LSI-11/23 0-BUS: 
300 MB Removable Emu¬ 
lates DEC RM05 



For LSI-11/23 0-BUS: 
80 MB Fixed Emulates 
DEC RM03 


For LSM1/23 Q-BUS; 
160 MB Fixed Emulates 
Two DEC RM03S 





For LSM1/23 Q-BUS: 
675 MB Fixed Emulates 
Two DEC RM05S 



For LSI-11/23 Q-BUS: 

32 MB Fixed/Removable 
Emulates DEC RK06/07 


For LSI-11/23 Q-BUS: 

96 MB Fixed/Removable 
Emulates DEC RK06/07 



For PDP-11/04-60 
UNIBUS: 80 MB Removable 
Emulates DEC RM02/03 


For PDP-11/04-60 UNI¬ 
BUS: 300 MB Removable 
Emulates DEC RM05 



For PDP-11/04-60 UNI¬ 
BUS: 80 MB Fixed Emulates 
DEC RM03 


For PDP-11/04-60 UNI¬ 
BUS: 160 MB Fixed Emu¬ 
lates Two DEC RM03S 



For PDP-11/04-60 UNI¬ 
BUS: 675 MB Fixed Emu¬ 
lates Two DEC RM05S 



For PDP-11/04-60 UNIBUS: 
32 MB Fixed/Removable 
Emulates DEC RK06/07 



For PDP-11/04-60 UNIBUS: 
64 MB Fixed/Removable 
Emulates DEC RK06/07 


For PDP-11/04-60 UNIBUS: 
96 MB Fixed/Removable 
Emulates DEC RK06/07 



For PDP-11/70 CACHE 
BUS: 80 MB Removable 
Emulates DEC RM03 



For PDP-11/70 CACHE 
BUS: 300 MB Removable 
Emulates DEC RM05 



For PDP-11/70 CACHE 
BUS: 80 MB Fixed Emulates 
DEC RM03 



For PDP-11/70 CACHE 
BUS: 160 MB Fixed Emu¬ 
lates Two DEC RM03s 



For PDP-11/70 CACHE 
BUS: 675 MB Fixed Emu¬ 
lates Two DEC RM05S 



80 MB 
Removable Emulates DEC 
RM03 



For VAX UNIBUS: 300 MB 
Removable Emulates DEC 
RM05 



For VAX UNIBUS: 80 MB 
Fixed Emulates DEC RM03 



For VAX UNIBUS: 160 MB 
Fixed Emulates DEC RM03 
Expanded 



For VAX UNIBUS: 675 MB 
Fixed Emulates DEC RM05 
Expanded 



For VAX UNIBUS: 32 MB 
Fixed/Removable Emulates 
DEC RK07 



For VAX-11/750 CMI: 80 
MB Removable Emulates 
DEC RM03 



For VAX-11/750 CMI: 300 
MB Removable Emulates 
DEC RM05 



For VAX-11/750 CMI: 80 
MB Fixed Emulates DEC 
RM03 



For VAX UNIBUS: 64 MB 
Fixed/Removable Emulates 
DEC RK07 



For VAX UNIBUS: 96 MB 
Fixed/Removable Emulates 
DEC RK07 


For VAX-11/750 CMI: 160 
MB Fixed Emulates DEC 
RM80 or Two RM03s 



For VAX-11/750 CMI: 675 
MB Fixed Emulates Two 
DEC RM05S 



EMULEX 


THE GENUINE ALTERNATIVE. 

Caii (800) 854-7112 toll-free, outside California. 
In California, call (714) 557-7580. 


CIRCLE 58 ON READER CARD 


















__ October i9S^ 

Editing Systems ——- -- 

David Spencer, infinity Software Corporation 


EDT REVISITED 


Since the last two EDT articles, there has been quite a 
bit of action on the EDT front. In this column I will attempt 
to provide an update on bugs corrected, commands added, 
limitations, etc. 

1.0 VTSZ s IGNORED 

In the previous two EDT articles. I made a fairly large 
blunder in announcing that my initializer file was good for 
everybody. Since I always use a VT100,1 forgot about VT52 
terminals. 

Figure one is a list of the internal key numbering table 
for VTSZ s like the one for VTIOO s in the second article. I in¬ 
clude this list in the interest of equal time. I understand that 
future releases of EDT will not allow defining keys by their 
internal number, so use this information at your own risk. 

It seems a number of people have gotten confused 
when they tried to use my initializer file on their VTSZ's. My 
VT100 initializer file steps on some DEC keys, or defines 
keys that are not available on the VT52. The solution to this 
problem is to remove the definitions for the CONT F. GOLD 
arrow-up, and GOLD arrow-down keys from the initializer. 

Among the people that reminded me of my forget¬ 
fulness was Larry Ingersoll of Tri-State University in Indiana. 
Larry also enclosed in his letter a humorous photocopy of a 
bogus help screen that he picked up at DECUS. I would like 
to thank whoever is responsible for it. 

Z.O EDT RESTRICTIONS 

There are two serious restrictions in EDT. The first is a 
key definition problem. Gordon Shepard of Dickenson Col¬ 
lege in Pennsylvania called and told me that he had written 
an initializer to make EDT pretend that it was WORD-11. 
However, he defined so many keys that he started getting 
the error message That key is not definable." Well of course 
it was definable, so I tried it myself. I created the following 
ATPK command file to test the problem. 

EDT NL:/R0.NL: 

DEF K 69 AS "QUIT." 

. (total of 200 identical lines) 

DEF K 69 AS "QUIT." 

QUIT 

This file invokes EDT "naked": i.e., without input and 
without an initializer file. On about the 195th redefinition of 
key 69 (CONT Y). I began receiving the "That key is not 
definable" error message. I SPR’d the problem, and was told 
that there is no garbage collection in EDT. In other words, as 
keys are defined the text gets appended to a working area 
until that space is exhausted. I was promised that the next 
release of EDT will have garbage collection, but that it might 
be a while before we will be seeing it. 


The second problem is related to the first. The space for 
additional buffers is also the same space used by key defini¬ 
tions. The more keys you define, the fewer buffers you can 
create. This means very complex initializer files may severely 
limit or eliminate the ability to define additional buffers. In 
fact, some quite complex initializer files are never able to get 
off the ground. 

If I may get on a soapbox for a moment, this is a very 
serious problem and should be remedied as soon as possible. 
This problem prevents EDT from operating as documented 
and makes its use very limited. I can’t hold the developers to 
blame, all early versions of the code we write have bugs or 
oversights. Instead blame must be given to Digital product 
management for holding back updated releases of EDT. I’m 
sure that the EDT group has a great number of im¬ 
provements to EDT. Either they aren’t receiving the funding 
to get new versions of EDT out, or management is holding 
EDT back. In either case. we. the users, are big losers. 

(By the way. some food for thought. This problem does 
not seem to exist on VAX.) 

3.0 MARK INCOMPATIBILITY WITH VTEDIT 

It has been mentioned to me that the mark for the 
TECO VTEDIT keypad editor is a / \ plus a car¬ 
riage return. The mark I use in my initializer file is a 
/ \ only. Ideally, these marks should be iden¬ 
tical. However, since it would be a problem to cleanly search 
for the mark with the carriage return, 1 have decided to 
allow this slight difference. If it bothers you badly enough, it 
is possible but sloppy, to solve the problem by imbedding a 
carriage return; but the listing becomes hard to follow. 

4.0 INITIALIZER BUGS CORRECTED 

There were a few bugs in the initializer file 1 presented 
in the first article. These problems were discovered via some 
very thorough examination by the folks at DCA in Min¬ 
neapolis. In the June 1982 issue a letter appeared of their 
findings. I’d like to thank them for their work and interest 
in EDT. I have since corrected the initializer file where 
needed. 

5.0 NEW COMMANDS ADDED TO INITIALIZER 

GOLD CONT B—Move to beginning of sentence. 

This command makes use of the BSEN nokeypad com¬ 
mand and moves the cursor to the beginning of the current 
sentence. This is very useful for editing text files, and even 
programs if your sentence delimiters are set right. 

GOLD CONT F—Move to end of sentence. 

This command uses the ESEN command. This works 
like GOLD CONT B but in a forward direction to the end of 
the current sentence. 

GOLD CONT 1—Move cursor eight characters. 

I find this command useful as an "in between" from 
single character moves and moving big lumps at a time. This 
command works in either direction, and makes a line scan a 
lot easier. 
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GOLD CONT T—Make current line top line of screen. 
This command uses the nokeypad command TOP. What 
this command does is make the current line the top line on 
the screen. This is useful when you are interested in whafs 
coming, rather than what has preceded. 

GOLD DELETE—Clear an entered buffer name. 

This one has become useful with the buffer limitations. 
Type GOLD and the delete key and EDT asks for a buffer 
name. Enter a buffer name and it is cleared of all text so it 
may be used again for whatever, it even works on PASTE 
and MAIN! 

6.0 STOCK COMMAND MODIFIED 

In the letter from the people at DCA, they suggested 
that the HELP key (PF2) be disabled. 1 couldn’t agree more. 
Most users learn the keypad very rapidly and don’t need to 
see the keypad diagram. And accidentally striking the key 
becomes annoying. Of course, those who would still like to 
see the HELP screen can still get help by striking the GOLD 
key and then PF2. 

7.0 MY INITIALIZER PHILOSOPHY TOWARD LANGUAGES 
Lately 1 have seen some neat language specific in- 
itiaiizer files floating around. One of the better ones was 
presented by Paui O'Nolan in the June issue, i have purpose¬ 
ly avoided including keys for languages because the need for 
these keys is specific to each instaliation. This coiumn is a 
general forum and 1 want to reach as many people as pos¬ 
sible. 1 don’t wish to crowd and confuse the file with things 
that not all people can use. (And in addition, as 1 mentioned 
before, there is currentiy a price to be paid in pool space for 
each key defined.) 

By all means 1 encourage everybody to create his own 
key definitions for editing the languages he uses. If you have 
a good set of definitions, please send a copy to me and 1 
would love to do an article on just various keys for 
languages. EDT is designed to help in doing whatever you’re 
trying to do. regardless of the language that you are using. 

8.0 EDT HELP FILE FORMAT 

The EDT "LB:EDTHEL.HLP" file is set up in a very sim- 
pie format, and therefore is easy to modify. The following 
example demonstrates how the HELP levels are defined and 
used: 

1 COMPUTER 

A computer is a big electrified rock, which is 
designed to pass voltages through various other 
devices (other rocks) and make alleged sense. 

2 DEVICES 

A device is a special type of rock attached to the 
main rock (computer). This rock provides the ’’data" 
that the big rock uses. 

3 DISKS 

A disk is a spinning piece of rock that is 
magneticly charged to retain somewhat meaningful 
information to be garbled by the big rock. 

4 TERMINALS 

A terminai is a rock that giows in the dark and 
dispiays the somewhat meaningful information 


RSTS ARCADE 

Infinity Software has arcade quality games for VT52 
and VTIOO terminals. 

BLKADE Up to a total of eight players try to 

fence in their opponents in this game of 
skill and strategy. 

PACKER Collect the radio-active dust from the 
maze before the four robots catch you. 
(VTIOO only.) 

INVADE Protect the planet with your laser base 
from the alien invaders from space. 
(VTIOO only.) 

SUBS Locate and sink your opponent’s 
submarine before he sinks you. 

STRWRS You have five minutes to destroy the 

Death Star before it destroys your moon 
base. 

WIGGIT Drop water crystals in front of the 

Martian Wiggits before they clone and 
capture you! (VTIOO only.) 

Games are $39.95 each and come complete with 
User Guides. Distribution is made on 800 or 1600 
BPI magtape (other media arranged at higher cost). 
California residents please add 6 Vi percent. 

Coming soon to VAX! 

For ordering information, please write or call; 

INFINITY SOFTWARE CORPORATION 

2210 Wilshire Blvd, Suite 801 
Santa Monica, California 90403 
(213) 820-2702 

CIRCLE 87 ON READER CARD 


Stored on the spinning rock (disk) and fed to the 
big rock (computer). 

And so forth... 

If this were your help file, you could get into line mode 
and type “HELP COMPUTER ” and receive the text dealing 
with a computer being a big rock. It would then say: “Addi¬ 
tional information available: DEVICES”. If you typed ’HELP 
COMPUTER DEVICES ” then you would get the message 
about devices and “Additional information available: DISKS 
TERMINALS ”. And to see the TERMINALS help message type 
“HELP COMPUTER DEVICES TERMINALS”. 

The structure of the EDT help file is a level number, 
level name, and help text until a line starts with a number, 
space, and level name. In this format, you cannot get help 
for subtopic DEVICES without prefixing it with the help 
topic COMPUTER. 
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The help processor is set up to accept the first matching 
string of the help topic. If the help file contained help for 
COMPUTER, CIVIUWAR. and CINDY, then typing "HELP C" 
would match on the help for COMPUTER, and typing "HELP 
Cl" would match on CIVIL-WAR. To get help for CINDY, you 
must type enough text to uniquely match CINDY. Thus 
"HELP COMPUTER DEVICES TERMINALS" can be reduced to 
"H C D T" if you wish. 

In taking a look at the "LB:EDTHEL.HLP" file, you will 
notice that the help is just a big text file layed out in 
this fashion. The keypad mode help is an interesting case 
because EDT looks for "KEYPAD VT100" if you are a VT100 
terminal, and "KEYPAD VT52" if you are anything else. EDT 
then translates the keys you type into their internal number 
and uses that to locate help for that key. For example, in¬ 
voke the keypad help and type the keypad "1" key. EDT will 
Internally generate a search for the text "KEYPAD VT100 
01" (if you happened to be set as a VT100) and display the 
help text for that key. 

In line mode you can type "HELP KEYPAD VT100” and 
actually get the help screen printed for you on the terminal, 
with one important difference. You also get all the subtopics 
(i.e., keypad numbers) listed as subtopics for additional in¬ 
formation. Armed with this knowledge you can (as I have 
below) add additional help for keys you have defined or 
changed. 

In addition, you can actually redesign the help screen 
itself. It is quite okay to use EDT on editing the EDTHEL.HLP 
file (although I recommend working on a copy until you are 
happy with the results). Wherever EDT prints the <ESC>. 
it is actually an ASCII 155. So if you are going to add any 
escape sequences, be sure to insert a 155 escape or EDT will 
recognize it as a line terminator and add a carriage return on 
writing the file. This creates some rather strange looking 
help screens. 

9.0 HELP FILES AVAILABLE ON MAGTAPE 

I have written a HELP.BAS format help file for all the 
EDT commands, stock DEC and my additional ones. I have 
also added about four blocks of help to the 
"LB:EDTHEL.HLP" file to provide help for my additional 
commands. These files and the latest version of my in¬ 
itializer file are available at cost of media plus shipping and 
handling for $25 from my company. Undoubtably, I am 
breaking some DEC rule by distributing a largely DEC file. 
However, it is at my cost, and for a good cause, so perhaps 
they’ll look the other way in this case. 

Default EDT VT52 Key Assignments 

The following list shows the internal EDT key number, stock 
key number editing definition, and keystroke. The numbering 
is bound to change and/or become unavailable in future 
releases of EDT. Use this information at your own risk. 

EDT 


Key 

Definition 

Keystroke 

65535 

D-C. 

DELETE 

0 

L. 

0(#) 

1 

W. 

!(#) 

2 

EL. 

2(#) 

3 

CUTSR. 

3(#) 

4 

ADV. 

4(«) 

5 

BACK. 

5(#) 

6 

D+C. 

6(*) 

7 

PAGETOP. 

7(#) 

8 

m m 

8(#) 


9 

DEW. 

9(«) 


10 

HELP. 

PF2(#+) 


11 

D+NL. 

PF3(#+) 


12 

-V. 

ARROW-UP(+) 


13 

+V. 

ARROW-DOWN(+) 


14 

+C. 

ARROW-RIGHT(+) 

15 

-c. 

ARROW-LEFT(+) 


16 

SEL. 

. (#+) 


17 

No definition 

(*) 


18 

No definition 

(*) 


19 

No definition 

(*) 


20 

No definition 

GOLD(*) 


21 


ENTER(+) 


22 

rM-C) . 

GOLD 0(#) 


23 

CHGCSR. 

GOLD !(♦) 


24 

D+EL. 

GOLD 2(#) 


25 

PASTE. 

GOLD 3(#) 


26 

ER. 

GOLD 4(#) 


27 

BR. 

GOLD 5(#) 


28 

UNDC. 

GOLD 6(#) 


29 

‘EXT ?'Command: '. 

GOLD 7(#) 


30 

''@?'Search for: 'i'‘@. 

GOLD 8(#) 


31 

UNDW. 

GOLD 9(#) 


32 

HELP. 

GOLD PF2(#+) 


33 

UNDL. 

GOLD PF3(#+) 


34 

CUTSR=DELETE PASTE. 

GOLD ARROW-UP(+) 

35 

(16L). 

GOLD ARROW-DOWN(+) 

36 

ASC. 

GOLD ARROW-RIGHT(+: 

37 

APPENDSR. 

GOLD ARROW-LEFT(+) 

38 

RESET 

GOLD .(#+) 


39 

No definition 

(*) 


40 

No definition 

(*) 


41 

No definition 

(*) 


42 

No definition 

GOLD GOLD(*) 


43 

(CUTSR=DELETE PASTEKS""). 

GOLD ENTER(+) 

44 

No definition 

CONTROL §(*) 


45 

TC. 

CONTROL A 


46 

No definition 

CONTROL B 


47 

No definition 

CONTROL C 


48 

TD. 

CONTROL D 


49 

TI. 

CONTROL E 


50 

FILLER. 

CONTROL F 


51 

No definition 

CONTROL G 


52 

BL. 

CONTROL H 


53 

TAB. 

CONTROL I 


54 

DBW. 

CONTROL J 


55 

DEFK. 

CONTROL K 


56 

"L. 

CONTROL L 


57 

"M. 

CONTROL M 


58 

No definition 

CONTROL N 


59 

No definition 

CONTROL 0 


60 

No definition 

CONTROL P 


61 

No definition 

CONTROL Q 


62 

REF. 

CONTROL R 


63 

No definition 

CONTROL S 


64 

TADJSR. 

CONTROL T 


65 

DBL. 

CONTROL U 


66 

No definition 

CONTROL V 


67 

REF. 

CONTROL W 


68 

No definition 

CONTROL X 


69 

No definition 

CONTROL Y 


70 

EX. 

CONTROL Z 


71 

No definition 

GOLD CONTROL 

@(*) 

72 

No definition 

GOLD CONTROL 

A 

73 

No definition 

GOLD CONTROL 

B 

74 

No definition 

GOLD CONTROL 

C 

75 

No definition 

GOLD CONTROL 

D 

76 

No definition 

GOLD CONTROL 

E 

77 

No definition 

GOLD CONTROL 

F 

78 

No definition 

GOLD CONTROL 

G 

79 

No definition 

GOLD CONTROL 

H 

80 

No definition 

GOLD CONTROL 

I 

81 

No definition 

GOLD CONTROL 

J 

82 

No definition 

GOLD CONTROL 

K 

83 

No definition 

GOLD CONTROL 

L 

84 

No definition 

GOLD CONTROL 

M 

85 

No definition 

GOLD CONTROL 

N 

86 

No definition 

GOLD CONTROL 

0 

87 

No definition 

GOLD CONTROL 

P 

88 

No definition 

GOLD CONTROL 

Q 

89 

No definition 

GOLD CONTROL 

R 

90 

No definition 

GOLD CONTROL 

S 

91 

No definition 

GOLD CONTROL 

T 

92 

No definition 

GOLD CONTROL 

U 

93 

No definition 

GOLD CONTROL 

V 

94 

No definition 

GOLD CONTROL 

W 

95 

No definition 

GOLD CONTROL 

X 

96 

No definition 

GOLD CONTROL 

Y 

97 

No definition 

GOLD CONTROL 

Z 

98 

No definition 

GOLD CONTROL 

[ (*) 

99 

No definition 

GOLD CONTROL 

\( + ) 

100 

No definition 

GOLD CONTROL 

] ( + ) 

101 

No definition 

GOLD CONTROL 

''( + ) 

102 

No definition 

GOLD CONTROL 

_( + ) 

103 

No definition 

GOLD SPACE 


104 

No definition 

GOLD ! 


105 

No definition 

GOLD " 


106 

No definition 

GOLD # 







The 

Single 

Source 

for 

Digital 

Products 

Service 



DEC Module Repair, 
Exchange or 
Replacement 


Photos show how we’re fully 
equipped to repair and test DEC,* 
PDP-11 * and TERMINAL MODULES. 
All modules we repair are 100% 
inspected. 


Visit us at booth 630 

DEXPO'“ WEST 82 

The 2nd National DEC-Compatible 
Industry Exposition 
Anaheim Convention Center 
Dec. 7-9. 1982 


DIGITAL PRODUCTS 
REPAIR CENTER 

939 Eastwind Drive 
Westerville, Ohio 43081 
614/890-0939 



Expert, Fast and Reliable 
Work 


Serving the computer systems 
market since 1973, we are now 
troubleshooting, repairing and 
testing hundreds of modules 
weekly. 

We can turn around a critical 
repair job in just 24 hours! Ten- 
day service is normal. 


The modules we return to you are 
guaranteed to meet or exceed 
the manufacturer’s specifica¬ 
tions. And we prove it by sub¬ 
mitting an inspection and test 
report. 

For emergency service, 7 days a 
week, 24 hours a day, call 


614 / 890-0939 

*DEC and PDP are registered trademarks of Digital Equipment Corporation. 


RELIANCE ELECTRIC 



H-1580 


CIRCLE 140 ON READER CARD 
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107 

No 

definition 

GOLD 

$ 

108 

No 

definition 

GOLD 

% 

109 

No 

definition 

GOLD 

& 

110 

No 

definition 

GOLD 

1 

111 

No 

definition 

GOLD 

( 

112 

No 

definition 

GOLD 

) 

113 

No 

definition 

GOLD 

* 

114 

No 

definition 

GOLD 

+ 

115 

No 

definition 

GOLD 

, 

116 

No 

definition 

GOLD 

- 

117 

NO 

definition 

GOLD 


118 

No 

definition 

GOLD 

/ 

119 

NO 

definition 

GOLD 

0(* 

120 

NO 

definition 

GOLD 

1(* 

121 

No 

definition 

GOLD 

2(* 

122 

NO 

definition 

GOLD 

3(* 

123 

No 

definition 

GOLD 

4(* 

124 

No 

definition 

GOLD 

5(* 

125 

NO 

definition 

GOLD 

6(* 

126 

No 

definition 

GOLD 

7(* 

127 

NO 

definition 

GOLD 

8(* 

128 

No 

definition 

GOLD 

9(* 

129 

No 

definition 

GOLD 

: 

130 

No 

definition 

GOLD 

; 

131 

No 

definition 

GOLD 

< 

132 

No 

definition 

GOLD 

= 

133 

No 

definition 

GOLD 

> 

134 

No 

definition 

GOLD 

7 

135 

No 

definition 

GOLD 

@ 

136 

TC. 


GOLD 

A 

137 

No 

definition 

GOLD 

B 

138 

No 

definition 

GOLD 

C 

139 

TD. 


GOLD 

D 

140 

TI. 


GOLD 

E 

141 

No 

definition 

GOLD 

F 

142 

No 

definition 

GOLD 

G 

143 

No 

definition 

GOLD 

H 

144 

No 

definition 

GOLD 

I 

145 

No 

definition 

GOLD 

J 

146 

No 

definition 

GOLD 

K 

147 

No 

definition 

GOLD 

L 

148 

No 

definition 

GOLD 

M 

149 

No 

definition 

GOLD 

N 

150 

No 

definition 

GOLD 

0 

151 

No 

definition 

GOLD 

P 

152 

No 

definition 

GOLD 

Q 

153 

No 

definition 

GOLD 

R 


154 

No 

definition 

GOLD 

S 

155 

TADJSR. 

GOLD 

T 

156 

DBL. 

GOLD 

U 

157 

No 

definition 

GOLD 

V 

158 

REF. 

GOLD 

W 

159 

No 

definition 

GOLD 

X 

160 

No 

definition 

GOLD 

Y 

161 

EX. 


GOLD 

Z 

162 

No 

definition 

GOLD 

r 

163 

No 

definition 

GOLD 

\ 

164 

No 

definition 

GOT.D 

1 

165 

No 

definition 

GOLD 


166 

No 

definition 

GOLD 

_ 

167 

No 

definition 

GOLD 


168 

No 

definition 

GOLD 

a(*) 

169 

No 

definition 

GOLD 

b(*) 

170 

No 

definition 

GOLD 

c(*) 

171 

No 

definition 

GOLD 

d(*) 

172 

No 

definition 

GOLD 

e(*) 

173 

No 

definition 

GOLD 

f (*) 

174 

No 

definition 

GOLD 

g(*) 

175 

No 

definition 

GOLD 

h{*) 

176 

No 

definition 

GOLD 

i(*) 

177 

No 

definition 

GOLD 

j(*) 

178 

No 

definition 

GOLD 

k(*) 

179 

No 

definition 

GOLD 

1(*) 

180 

No 

definition 

GOLD 

m(*) 

181 

No 

definition 

GOLD 

n(*) 

182 

No 

definition 

GOLD 

o(*) 

183 

No 

definition 

GOLD 

p(*) 

184 

No 

definition 

GOLD 

q(*) 

185 

No 

definition 

GOLD 

r (*) 

186 

No 

definition 

GOLD 

s(*) 

187 

No 

definition 

GOLD 

t (*) 

188 

No 

definition 

GOLD 

u(*) 

189 

No 

definition 

GOLD 

V (*) 

190 

NO 

definition 

GOLD 

w(*) 

191 

NO 

definition 

GOLD 

x(*) 

192 

No 

definition 

GOLD 

y (*) 

193 

No 

definition 

GOLD 

z (*) 

194 

NO 

definition 

GOLD 

{ 

195 

NO 

definition 

GOLD 

1 

196 

No 

definition 

GOLD 

} 

197 

No 

definition 

GOLD 


198 

No 

definition 

GOLD 

DELE 

199 

No 

definition 

[unknown] 

200 

No 

definition 

[unknown] 


# This is a keypad key. 

* This key can be defined by using the internal EDT 
number, but cannot be used by either case conversion 
constraints or key sequence interpretations. 

+ This key is a valid for editing, but can be defined 
using the internal EDT key number only. 


14,9] EDTINI.EDT 


1 Standard Initializer File V01.3 25-Jun-82 

! + 

1 Word Delimiter Macros 

I - 

DEF M DELIMITERS.PROGRAMMING 
F=DELIMITERS.PROGRAMMING 
I 

DEF K GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING." 

“Z 

C; ISE EN WO '"Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I ()[],-+*/»'“Z EX 
*Z 
! 

DEF M DELIMITERS_WORD_PROCESSING 

F=DELIMITERS_WORD_PROCESSING 

I 

DEF K GOLD CONT D AS "EXT DELIMITERS.PROGRAMMING." 

*Z 

C; ISE EN WO ’"Z 9ASC lOASC llASC 12ASC 13ASC 27ASC I ,'“Z EX 

“Z 

U 

1 Screen Width Macros 

I- 

DEF M WIDTH_132 
I*WIDTH^132 

DEF K GOLD CONT W AS "EXT WIDTH_80." 

SE SC 132 
SE WR 131 
'Z 
1 

DEF M WIDTH_80 
I=WIDTH_80 

DEF K GOLD CONT W AS "EXT WIDTH_132." 

SE SC 80 
SE WR 79 
“Z 
1 + 

1 Key Definitions 

1- 

DEF K 10 AS "." 

DEF K CONT B AS "-W." 

DEF K CONT F AS "+W." 

DEF K CONT G AS "PASTE*?'Put buffer: 

DEF K CONT P AS "PAR." 

DEF K CONT X AS "CUTSR=?'Cut buffer: 

1 

DEF K GOLD DEL AS "EXT CL ?’Clear what buffer: 






Run CP/M On Your DEC With The Bridge. Run inexpensive 
CP/M® programs on your DEC® minicomputer with The 
Bridge® virtual microcomputer system. Now, every terminal 
attached to your minicomputer can run CP/M programs 
directly, as if they were dedicated microcomputers. Finally — 
the gap between the worlds of mini and micro disappears. 

The Virtual Microcomputer System. The Bridge is a system 
of hardware and software for your DEC LSI-11,® PDP-11,® or 
VAX® minicomputer. The hardware, called the z-Board,® exe¬ 
cutes the program at speeds greater than those of dedicated 
micros. Together they constitute a breakthrough — unlocking 
a vast library of cost-efficient software for 
your minicomputer. 

The z-Board. The z-Board is a hardware ac¬ 
celerator for The Bridge featuring four z-80's,® 


256K bytes of memory, and a bit slice state machine. A key 
component of the system, the z-Board provides four users 
(per board) with an enhanced microcomputer environment. 
The z-Board is available for the Q-bus® and UNIBUS.® 

System Integration. One of the key benefits of The Bridge 
is that all microcomputer operations are centralized in your 
mini. It’s no longer necessary to maintain various micros at 
different work stations — all with different disk formats. The 
Bridge gives you one format, available to each operator, at 
every terminal. Every virtual micro can share files with every 
other virtual micro in your system. 

Bridge Your Gap. Make the most of your 
DEC mini with The Bridge virtual micro¬ 
computer system. For more information, call 
Deryk Van Brunt today at (415) 841-9594. 


virtual 

microsystems 


2150 Shattuck, Berkeley, CA 94704 



Bric^ 

the mini/micro 
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DEP 

K 

GOLD 

12 

AS 

■(-22V) 

DEF 

K 

GOLD 

13 

AS 

■(♦22V) 

DEF 

K 

GOLD 

CONT 

B AS 

■BSEN.■ 

DEF 

K 

GOLD 

CONT 

D AS 

■EXT DELIMITERS.WORl 

DEF 

K 

GOLD 

CONT 

G AS 

■CUTSR-DELETE PASTE> 

DEF 

K 

GOLD 

CONT 

F AS 

■esen.■ 

DEF 

K 

GOLD 

CONT 

H AS 

■(-C D-C +C UNDO 

DEF 

K 

GOLD 

CONT 

I AS 

"(80 

DEF 

K 

GOLD 

CONT 

T AS 

■TOP.■ 

DEF 

K 

GOLD 

CONT 

W AS 

■EXT WIDTH 132." 

DEF 

K 

GOLD 

CONT 

X AS 

■EXT CO SELECT TO-?' 

DEF 

K 

GOLD 

CONT 

Z AS 

■EXT EX." 

1 

DEP 

K 

GOLD 

. AS 

■ 

1 

1 

1 

1 

1 

n 

DEF 

K 

GOLD 

/ AS 

"S%""/\“”%%." 

DEF 

K 

GOLD 

B AS 

"EXT 

F-?'Buffer: 

DEF 

K 

GOLD 

C AS 

"(C SEL W CHGCSR)." 

DEF 

K 

GOLD 

F AS 

"(SEL PAR FILLER)." 

DEF 

K 

GOLD 

I AS 

■EXT 

INC ?'Input file; ' 

DEF 

K 

GOLD 

L AS 

"EXT 

F L." 

DEF 

K 

GOLD 

M AS 

■EXT 

F-MAIN..■ 

DEF 

K 

GOLD 

0 AS 

■EXT 

WR ?'Output file: ' 

DEF 

K 

GOLD 

Q AS 

■EXT QUIT/SAVE." 

DEF 

K 

GOLD 

S AS 

■EXT 

SH BU." 


Set Terminal Characteristics 


1 + 

1 
1 - 

SE WR 79 
SE TR 
SE K 
SE M C 

DELIMITERS.PROGRAMMING 
1 + 

1 Set Buffer to MAIN, 

I- 

F-MAIN 



Disp Tine 

Cause Bug 

Go Lunch 


lETlSEi 

1 

SoMething 

Cut 

HiEin 

Guess 

1 

Dele User 

LSJ'iEE 

aiLii 1 


Turn Page 

Jan Keybd 

Pull Plug 

—--1 

Throw Up 

1 



Add Junk 

Go Slower 

Give Up 

1 

■ 


[UEC] 



—-1 


Boardwalk 

'^V4; 




1:3X1 


SCOPE MODE 
RUBOUTS IN INIT 

By Michael Mayfield 
Northwest Digital Software 

An undocumented feature of the FILL option is 
very useful for systems that use a video display for 
their system console. This feature enables scope 
mode rubouts while using INIT. 

To enable scope mode rubouts, reboot the 
system and use the following command: 

Option: FILL SCOPE 


WE ^ 
NEW YORK 
NEW YORK 
US! 


Notes: 

1. AUkeys change function on Monday 

2. key is broken 

3. Left arrow (—» Moves cursor up 

4. CTRL-Z induces sleep 

5. iHEI doesn't 

6. Don't ex pect to 

7. IlTSSTJ scrolls 

8. Singl e <^uote (') weans apostrophe 

9. ‘ garbles screen 

10. Shifted nunsrics cause cancer 

11. You are late for a Meeting 

12. The Meeting has been cancelled 

13. Type LOGOUT to enter keypad Mode 

14. Ar^key lock s keyboard 

15. not iMpleMented 


□ 


You can write for the tape (please enclose a check) or 
ask questions or whatever via my company: 

David Spencer 

Infinity Software Corporation 
2210 Wilshire Blvd.. Suite 801 
Santa Monica. Calif. 90403 

Until next time, have a good edit. ^ 



Photo submitted by Richard Rein. RMS Data Services. NY. 
The license plate belongs to Russell Dietz. 







































VT131 fromM 


All the goodies 
at a lower pric 



EMgital’s new VT131 features builHn 
advanced video, printer port and block mode. 


Now you can get all the features of DEC’s VTIOO plus the options 
you’ve always wanted: advanced video, printer port, U.S./European 
half and full duplex communications and modem controls, and local 
edit/block mode transmission. 

And aU of these features are hundreds of dollars less than it would 
cost to buy them option by option for a VTIOO. Although the new 
VT 131 is totally self-contained and has no functional upgrade op¬ 
tions, MTI can retro-fit your terminal with graphics from Digital 
Engineering to make it Tektronix 4010 and 4027 compatible. 

MTI is one of the few Authorized Digital Terminals Distributors, so 
we can give you the best of two worlds; terminals, based on advanced 
technology from the industry leader, and the expertise and service 
from applications specialists. 

Whether you buy, rent or lease our equipment, you’ll find MTI is the 
one source for all the terminals, peripherals, systems, applications 
expertise and service you’ll ever need. At good prices. Call us today. 


New York: 516/621-6200,212/767-0677,518/449-5959 
Outside N.Y.S.: 800/645-6530 
New Jersey: 201/227-5552 
Ohio: 216/464-6688 



Applications Specialists & Distributors, New York, New Jersey and Ohio. 
DEC, Intel, Lear Siegler, Texas Instruments, Dataproducts, Diablo, 3Com, 
Hazeltine, Racal-Vadic, Digital Engineering, MICOM, Cipher and Elgar. 


CIRCLE 107 ON READER CARD 
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MULTIPLE VERSIONS 
OF RSTS ON ONE DISK 

By Michael Mayfield, Northwest Digital Software 


Here it is Saturday. The wife and kids are at the beach 
but you’re stuck in the computer room installing a new 
release of RSTS. You did the sysgen last week but you 
couldn't install it because RSTS doesn’t allow you to have 
more than one release on the same disk. 

Your only choice is to come in when no one else is using 
the system and install V7.1 on a new disk and then copy 
everything from your V7.0 system pack to the new disk. If 
you could only install V7.1 directly onto your existing 
system disk, you wouldn’t have to wait for all that tape to 
spin. 

Even worse, what if you find a problem in V7.1 and 
have to switch back to V7.0 until it is fixed. More tape spin¬ 
ning while you copy everything from the V7.1 disk back to 
the V7.0 disk. 

If you were only able to have more than one release of 
RSTS on the system disk at once, you could switch between 
versions without having to copy all the files back and forth 
each time. If a problem occurred with the new release you 
could simply switch back to the previous one and continue 
execution. 

Well, go ahead and go to the beach. This article details a 
method which allows any number of releases to be con¬ 
tained on the same disk. You can change releases any time 
you want. Any of the releases can be specified as the default 
to use for future startups. 

The reason that RSTS does not allow more than one 
release on the same disk pack has to do with the way the 
bootstrap works. The bootstrap consists of a 512 byte pro¬ 
gram located at the first block of the disk. The bootstrap 
hardware loads this bootstrap program into memory and 
then executes it. 

The job of the bootstrap program is to load INIT.SYS in¬ 
to memory and pass control to it. It does this using a list of 
device cluster numbers which identify the blocks that con¬ 
tain INIT.SYS. In order to boot a different copy of INIT it 
would be necessary to change the list of device cluster 
numbers to identify the blocks used by the new copy of INIT. 

As it happens, two undocumented features of the 
monitor allow you to do just that. The LOAD option allows 
you to load a new version of INIT while at the OPTION level. 
The WRITEBOOT option updates the bootstrap to identify 
the blocks used by the version of INIT that is currently 
loaded. 

The following procedure is used to install a new version 
of INIT on a disk. Please note that use of this procedure is 
not documented by Digital and. therefore, they have no 
responsibility to support it: 


1. Copy the current version of [O.ljlNlT.SYS into a file in 
[0,1] with a name other than INIT and a filetype of SAV. 

2. Copy INIT.SYS for the new release onto the disk in ac¬ 
count [0,1] with a name other than INIT and a filetype of 
SAV. 

3. Bootstrap the disk. 

4. Patch both new copies of INIT using the patch shown 
in the example below. 

5. Use the LOAD option to load the desired version of 

INIT. 

6. Use the WRITEBOOT option if the currently loaded 
version of INIT is to be used as the standard INIT during 
future bootstraps. 

The following example shows the sequence used in in¬ 
stalling RSTS V7.1 on a disk that already contains RSTS 
V7.0. INIT70.SAV is the copy of INIT for V7.0. INIT71 .SAV is 
the copy of INIT for V7.1: 


RUN $PIP.SAV 

*10,11INIT70.SAV*[0,11INIT.SYS 
*[0,11INIT71.SAV*MT0:[0,11INIT.SYS 
*"Z 

Reboot the system. 

Option: PATCH 

File to patch? INIT70.SAV 

Base address? FQINIT 


Offset 

address? 

10 






Base 

Offset 

Old 

New 




?????? 

000010 

035171 

? 

%INI 

;Pirst 3 characters 

of 

filename 

?????? 

000012 

076400 

? 

%T70 

;Last 3 characters 

of 

filename 

?????? 

000014 

075273 

? 

%SAV 

;Filetype is .SAV 



?????? 

000016 

000000 

? 

"C 

;Patch complete 



Option: 

PATCH 







File to 

patch? 

INIT71.SAV 





Base address? FQINIT 






Offset 

address? 

10 






Base 

Offset 

Old 

New 




?????? 

000010 

035171 

? 

%INI 

;Pirst 3 characters 

of 

filename 

?????? 

000012 

076400 

? 

%T70 

;Last 3 characters 

of 

filename 

?????? 

000014 

075273 

? 

%SAV 

;Filetype is .SAV 



?????? 

000016 

000000 

? 

"C 

;Patch complete 




To load INIT for V7.0: 

Option: LOAD INIT70 
To load INIT for V7.1: 

Option: LOAD INl’ni 

To make the currently loaded version of INIT the default for 
future boootstraps: 

Option: WRITEBOOT 

If the WRITEBOOT option is not used, the normal version of 
INIT will be used the next time the system is bootstrapped. 

I wish to thank Software Techniques for their in¬ 
valuable assistance in developing the procedure described in 
this article. ^ 







BRAND NEW WARRANTY ‘BRANDNEW 


A 


SCHERERS SPECIALS 


DEC CRT’s 

VT100-AA . $1,325 

VT100-WA . 1,450 

VT101-AA . 975 

VT102-AA . 1,395 

VT102-WA . 1,450 

VT125-AA . 2,750 

VT125-AA W/AVO . 2,850 

VT131-AA . 1,295 

VT131-WA . 1,350 

VT132-AA . 1,450 

DEC PRINTERS 

LA38-GA. 895 

LA38-HA . 995 

LA38-AA . 1,000 

LA34-DA . 795 

LA34-AA . 825 

LA120-RA . 1,695 

LA120-BA . 1,975 

LA120-AA . 1,895 

LA100-RA . 1,625 

LA100-YA . 1,725 

LA100-ZA . 1,995 

CALL NADINE OR LAURIE 
@ (614) 889-0810 

SCHERERS 
6145 Scherers Place 
Dublin, OH 43017 
(614) 889-0810 

Mn Kentucky Call: 

Dave or Mike at: 

(502) 425-9911 

Scherers of Kentucky 
10347 Linn Station Rd. 
Louisville, KY 40223 


DEC HARDWARE & OPTIONS 
UNIBUS 

DZ11-A . $2,000 

DZ11-B . 1,500 

DZ11-E . 3,500 

DMC11-AL/ 

DMC11-MDSet. 2,500 

DD11-CK/CF . 300 

DD11-DK/DF . 600 

DH11-AD . 4,900 

BA11-KE . 2,400 

FP11-A. 2,100 

DL11-A&C . 375 

DL11-WA . 595 

DL11-WB . 675 

DISKS 

RLV22-AK. 4,400 

RL211-AK . 4,000 

RL02-AK . 2,400 

RXV211-BA . 2,700 

CPU BOARD SETS 

11/34A CPU-SET. 1,200 

KDF11-AA . 1,500 

MEMORY 

MSV11-DD . 300 

MS11-MB . 2,000 

MK11-CE . 5,500 

MS11-LD. 1,400 

MS11-JP (used) . 105 

MJ11-BE . 3,000 

CALL GARY OR GORDON 

@ (614) 889-0810 


BRAND NEW WARRANTY 


CIRCLE 158 ON READER CARD 
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RSTS PROFESSIONAL 
CUMULATIVE INDEX 


By Greg Justice. Texas Distributors. Inc.. Dallas. TX 75234 

Access Control and Security V.N.P. 

Access Control and Utilization Monitor.3.1.74 

DEC Data Security—the Software Encryption Solution.3.4.12 

From All Enemies. Foreign and Domestic—Protecting RSTS .... 4.3.20 

Have You Stolen any Good Software Lately?.3.3.14 

Software Protection: What is it Really?.3.4.22 

The "SLAM*’ System—Security Lock and Monitor System.2.4.44 

Applications 

A Database System for a Hospital Radiology Department.1.1.34 

Counterattack on Paperwork .4.3.40 

Database Management Techniques for Application Design.2.1.5 

Hardware Independence Using Resident Libraries .2.4.82 

IMPRS. A Productivity Relational Data Base Language.4.2.12 

Network Processing on RSTS/E.2.4.47 

Networking and the PDP-11 .4.3.42 

RPTMAN—Report Manager.4.2.90 

SIMINI—A Simulation Mini Computer.4.4.71 

Telephone Costs Rival Data Processing Costs?.4.1.8 

The Alternative to DBMS.2.3.44 

The Basics of Networking and Digital Communications .4.2.58 

TYPE.4.4.30 

Using RSTS/E as a Development System for RT-11 & RSX-11M . . 2.4.14 
Word Processing and DEC Computers—Hints and Kinks.2.2.19 

Basic Pius 2 

Basic-Plus-2 and Macro.2.4.20 

Bit 8i Byte Manipulation Techniques in BASIC +.4.3.86 

BP2(V1.6)fromC0MtoTKB.2.3.12 

DEB—A Basic Plus II Mini-debugger .3.2.20 

Getting the Most Out of CSPCOM.3.3.64 

Hardware Independence Using Resident Libraries .2.4.82 

Link-time Initialization of BP2 MAPS .4.1.38 

Making Basic-2 Programs Sharable .3.2.8 

Making BP2 Programs into Run-Time Systems .4.2.72 

More Notes on Literals and Strings in Basic-Plus-2.4.2.47 

Optimizing Space Allocation of Literals in Basic-Plus 2 .3.4.68 

Programmer’s Guide to Resident Libraries .2.2.62 

Resident Libraries II .2.4.8 

Segmenting Basic Plus II Applications.3.1.8 

The Version 7 Basic-Plus-2 ‘BUILD’’ that Won’t.2.3.60 

Using SORT-11 from Basic Plus II on RSTS/E Version 7.0 .3.4.66 

Basic Plus/BP2 Programs 

A Standard Format for Program Dialogue.2.4.35 

ATPKED: At-pee-kay Basic-Plus Line Editor.3.4.28 

Basic Memory Exercising Programs .4.3.8 

BIO.BAS.4.1.61 

Bit 8i Byte Manipulation Techniques in BASIC +.4.3.86 

BLINK: A Basic Plus Preprocessor.3.4.40 

BP2Utllties .3.1.79 

CALLER.BAS .3.4.76 

CB—Citizen’s Band Radio Emulator. Version 01.03 .4.4.8 

CCLMAN-CCL Manager for RSTS/E .4.3.18 

CREATE.BAS .3.3.26 

Don’t Bubble—Quick Sort .3.4.58 

EXTRACT.BAS .4.2.85 

FICHE.BAS.3.1.41 

FILMAP.BAS .4.1.30 

Functions That Put the FUN Back In Programming .2.3.56 

"Input Loop" Programming Technique.4.1.80 

JBSTAT .3.2.42 

JUMP.BAS Enhancement.4.3.51 

LD1:[1.3]AM0RT.BAS .3.2.57 

LD1:[1.3]EXTEND.BAS .3.3.17 

Logging Into an Account Without LOGIN.4.2.8 

0N20FF.B2S .3.1.40 

Operational System Status .3.3.70 

Prescription for an Old Program.2.2.14 

Programming Standards.1.1.40 


Pseudo Spooler.2.1.51 

SIMINI—A Simulation Mini Computer.4.4.71 

TAPE.2.1.53 

The Low-Speed Spooling Package.4.1.64 

TIMER.BAS .3.4.38 

TUNE7.BAS .2.3.62 

Using the VT100 Printer Port Effectively .4.3.47 

Why Call Your Bank Everyday? .4.4.68 

DEC CUSP Feature Patches 

EDT Hints and Kinks.4.2.24 

EDT Version 2 Patches .3.3.60 

ERRDIS—Selective Clearing of Logged Errors .4.4.34 

REORDR—Sorting Alphabetically.3.4.50 

SYSTAT—Three Functionality Patches .2.3.52 

TTYSET Optional Patch for VT100 Width Changes.3.4.19 

TTYSET Default Command .2.4.54 

□ECUS 

Canadian DECUS, Toronto.2.2.13 

CBM/RDM—San Diego DECUS. 1980 .2.4.71 

DECUS Canada .3.1.73 

DECUS Plus, or. Independence for the RSTS Community.2.2.35 

Fall DECUS Symposium. San Diego. California .2.1.15 

Good News from SENERUG ’80 .2.4.32 

U.K. DECUS. 1981 Conference .3.2.40 

U.K. DECUS. RSTS SIG Meeting. October. 1980 .2.4.56 

Digital Equipment Corporation 

DEC Timesharing (1965) .1.1.32 

DECWORD/DP or How I Tried to Get a Free VT100 AVO.4.2.11 

Getting the Most Out of Your DEC Field Service.4.1.28 

The RDC Revisited.3.2.71 

Editing Systems 

Miscellaneous Items .4.4.38 

Talking with the World in TECO.4.3.14 

Games 

CASE-1578 C.M .3.2.76 

CB—Citizen’s Band Radio Emulator, Version 01.03 .4.4.8 

Dungeon Map.3.4.74 

Games. 1.1.38 

GXZY XMQRZPD RST L.2.3.68 

New Games .2.1.23 

No Cause for Excitement.4.4.29 

One Man’s (Boy’s) Opinion .4.4.28 

Please Ignore This Notice.2.2.32 

RSTS Defector .3.4.54 

Hardware 

Address Four Megabytes with an 11 /34.3.2.80 

Big Disks .2.3.48 

Building a Born Again 40.3.4.65 

DECWORD/DP or How I Tried to Get a Free VT100 AVO.4.2.11 

Enable Compatibility with Non-DEC Peripherals.4.2.46 

EverMakeAMISTEAK .4.3.25 

It’s an 11 /40 Born Again.3.3.13 

Modems and Multiplexers—Remote Access to a RSTS System . . . 2.1.38 

Remote Annunciator for Operator Messages.2.3.50 

Report for Commercial Working Group on Magtape Problems . . 3.3.58 

RSTS/E V7.1 Does Not Realize the Beloved ”TS11" Exists.4.3.76 

The RSTS Professional Buys a Computer.3.1.60 

Up the Unibus with Gun and Camera .2.1.24 

Use of an Intelligent Port Selector on Multi-RSTS System .2.1.12 

Using the VT100 Printer Port Effectively .4.3.47 

Macro-11 

Basic-Plus-2 and Macro. 2.4.20 

Beginner’s Guide to Macro 11 Programming in RSTS/E .3.1.26 

Disk I/O from Macro.4.1.26 

I/O from Macro—Quickly and Easily! .2.2.60 

Learning VAX MACRO for Fun & Profit.4.2.52 

More I/O from Macro—Quickly and Easily .2.3.70 

ODT.DOC .3.2.74 

Over the I/O Page.3.4.84 

SETUTLMAC .2.3.35 

Should You Consider Using Macro-11 under RSTS/E?.1.1.43 

The Ultimate Push/Pull Macros.4.2.62 

Welcome Again to Macro Land.2.4.78 
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IS YOUR RSTS/E SYSTEM SLOW? 

IMPROVE YOUR SYSTEM RESPONSE 
REORG YOUR FILE STRUCTURES 

EASY ☆ FAST ☆ SIMPLE 

ONE STEP DISK TO DISK REORGANIZATION 


REORG is a high speed tool used to create copies of RSTS/E disk 
packs. The new packs created have well structured directories, 
thus providing system performance enhancements. REORG may 
optionally create a tape backup of the disk being copied. Some 
of the major features of REORG are: 


o 

o 

o 


o 


o 

0 

o 

o 


o 

o 


o 


REORG transfers data at over 500,000 Blocks per hour (RM05 
to RM05) . 

No DSKINT, REFRESH, or HOOK steps are needed. 

All the file handling functions which are usually done by 
the RSTS/E file processor are done within REORG, using 
large buffers, thus allowing REORG to run much faster and 
with less system load then a similar program using the 
RSTS/E FIP. 


The Storage Allocation Table (SAT) 
memory during REORG processing, 
accesses of the SAT. 

Tapes created by REORG are in a DOS 
All accounting data is preserved by 


is kept entirely in 
thus eliminating disk 

compatible format. 
REORG. 


The location of placed files may be 


preserved. 


REORG may copy mounted disks (a system disk 
as long as precautions are taken to prevent 
input disk during the copy. 


for example) 
changes to the 


REORG allows copying between different disk types as long 
as sufficient space is available on the output drive. 

If the output pack is already a RSTS/E structured disk the 
Bad Blocks file will be preserved. REORG can also do a 
quick check for bad blocks on the output disk (even if 
pack isn't RSTS/E^ structured) and add them to the bad 
block file. 


The output disk will be bootable if INIT.SYS is 
account [0,1] of the input disk. 


present in 



NORDATA 

4433 27TH AVE. WEST 
SEATTLE WA 98199 
(206) 282-1170 
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Writing a Run-Time System (or Happiness in the HISEG).4.4.31 

Operating Systems/Languages 

A RSTS/E to VAX/VMS Conversion .2,2.54 

MUMPS as a Language .2.2.33 

Polysoft Application Language.4.2.66 

Replacing RSTS SYS Calls with VAX/VMS Systems Services .... 4.2.54 

RPG System/3 to RSTS/E Conversion.2.1.43 

TSXplus—An Alternative to RSTS .3.4.106 

Points of Interest 

An Open Letter to the RSTS Community. (Spooling Package) .... 2.2.45 

Bit & Byte Manipulation Techniques in BASIC +.4.3.86 

DECWORD/DP or How I Tried to Get a Free VT100 AVO.4.2.11 

Double Precision Integers .1.1.37 

EDT Hints and Kinks.4.2.24 

Ever Make A MISTEAK .4.3.25 

Goodies—Tidbits From Here and There.2.2.33 

Goodies .2.2.34 

Goodies .2.2.68 

How to Use BUILD.4.2.32 

RSTS/E V7.1 Does Not Realize the Beloved TS11" Exists.4.3.76 

Terminal Printers, Magtape Densities. Disabling Keys .3.1.15 

Resource Allocation 

A Shortage of Small Buffers .4.3.77 

Analysing and Allocating Data Processing Resources.3.2.32 

RSTS/E’s Small Buffers.4.1.39 

Software Management.2.3.71 

RSTS/E Benchmarks 

Benchmark DIBOL vs. Basic-Plus 2.3.4.82 

The RSTS/E Benchmarks—Part 1 .3.2.12 

The RSTS/E Benchmarks—Part 2 .3.3.8 

RSTS/E Disk Structure 

All Things BRIGHT and Beautiful .3.1.62 

CREATE.BAS .3.3.26 

Disk Structure Notes.3.1.25 

How Do You Read a RSTS/E Disk Structure?.4.1.45 

Introduction to RSTS Directories .1.1.30 

RSTS Disk Directories. Part 2.2.1.45 

RSTS Disk Directories. Part 3.2.3.38 

RSTS Disk Directories. Part 4.2.4.72 

RSTS Disk Directories. Part 5.3.2.62 

RSTS Disk Optimization.2.2.28 

RSTS/E Disk Structure and Recovery .2.4.58 

So Your Disk is Irrevocably Corrupt?.3.3.28 

The Case for NFF.4.1.42 

The Disk Inversion Map.4.3.37 

RSTS/E Monitor Enhancements 

CTRL/F Monitor Support.3.1.18 

The Implementation of Hidden Files under RSTS/E V7.0.3.3.78 

The RSTS Extension .3.4.93 

RSTS/E Monitor Internals 

A Shortage of Small Buffers .4.3.77 

Ever Make A MISTEAK .4.3.25 

FIP’s Alignment Algorithm .3.3.30 

RSTS Monitor Internals.4.3.34 

RSTS/E Monitor Internals. Part 2.3.2.82 

RSTS/E Monitor Internals. Part 3.3.3.38 

RSTS/E Monitor Internals. Part 4.3.4.88 

RSTS/E Monitor Support.3.1.43 

RSTS/E’s Small Buffers.4.1.39 

RSTS/E V7.1 Does Not Realize the Beloved “TS11" Exists.4.3.76 

The RSTS/E Environment.4.2.74 

V7.0 Initial Report .2.1.49 

RSTS/E System Management 

A RSTS Performance Checklist.2.4.76 

Basic Memory Exercising Programs .4.3.8 

Ever Make A MISTEAK .4.3.25 

Getting the Most Out of Your DEC Field Service.4.1.28 

Lost Your Lights? and Other System Performance Questions . . . 2.1.65 

New User’s Manual for RSTS/E .2.2.8 

New User’s Manual for RSTS/E. Part 2.2.3.8 

Operational System Status .3.3.70 

RSTS/E System Management .3.2.14 

RSTS/E—The In-house Timesharing Alternative .1.1.23 


RSTS/E V7.1 Does Not Realize the Beloved ”TS11" Exists.4.3.76 

Software Management.2.3.71 

System Management for RSTS/E.3.4.78 

The Basics of Networking and Digital Communication .4.2.58 

The RSTS/E System Manager—Datatrieve. SPRs.3.3.84 

The RSTS/E System Manager—Magtape .3.4.72 

The RSTS/E System Manager—Magtape .4.1.90 

The System Works for You. But.2.4.64 

The Version 7 Basic-Plus-2 "BUILD" that Won’t.2.3.60 

Structured Programming 

A Standard Format for Program Dialogue.2.4.35 

A Top-down Look at Interactive Software. Part 1 .3.4.8 

File Structure and Accessing Techniques.2.3.18 

Functions that Put the FUN Back in Programming.2.3.56 

"Input Loop" Programming Technique.4.1.80 

Prescription for an Old Program.2.2.14 

Programming Standards.1.1.40 

Structured Programming in Basic-Plus and Basic-Plus-2.1.1.6 

Writing Structured Programs in VAX-11 BASIC.4.1.51 

TECO 

? How TECO ? 

Introduction.1.1.27 

Structured Programming in TECO.2.2.37 

The Uses and Abuses of Q-registers.2.1.61 

? Why TECO ? 

Introduction .1.1.26 

Language.2.2.36 

VTEDIT.2.1.60 

Are Macros Worth Using? .3.3.20 

BLDCTL: Control File Processor .3.1.68 

DIRECT.TEC.3.2.36 

Editing Systems—Talking with the World in TECO.4.3.14 

Program Development System.3.3.24 

QUERY.TEC .4.1.34 

RPGED.TEC .4.2.87 

SHOW.TES.4.1.79 

Some Easy TECO Macros . ..2.4.80 

TECO 2 .4.3.84 

VTEDIT.TEC.3.4.70 

VTEDIT.TEC: EDT V2.0 Emulated with TECO.3.3.90 

The RSTS Crystal Ball 

ONLRES Makes RSTS MODULES [Non] Resident.4.4.60 

The New World of 7.1 .4.3.30 

Third Party Software 

Basic + as an Environment of a High-Level Prog. Lang.2.2.46 

IMPRS. A Productivity Relational Data Base Language.4.2.12 

Notes From a Ride on the AMTRAIN(ing).3.2.90 

QUE.11 System Manager’s Guide .3.1.34 

QUE.11 User’s Guide.2.4.86 

Why AM BASE—or How to stop Worrying and Love DBMS .2.1.20 

Tips & Techniques 

Cotrees—the Overlay Structure.4.3.54 

Determining SYSQ Call Privileges .4.4.52 

EDT Hints and Kinks.4.2.24 

EDT Version 2 Patches .3.3.60 

Feedback—Comments on the Proposed EDT Initializer.4.3.68 

Formname in One-shot Spooling Call. BP vs BP2 CUSPS .3.4.52 

Making BP2 Programs into Run-Time Systems .4.2.72 

Proposed Standard EDT 2.0 Initializer.4.1.74 

VAX-Scene 

A File Compress Utility for VAX/VMS Systems .4.3.64 

CONPAX: Conversion of PDP-11 Assembly to VAX-11 Native . . . 3.2.52 

Conversion to VAX ("native mode") BASIC . . .2.2.26 

Learning VAX MACRO for Fun & Profit.4.2.52 

Replacing RSTS SYS Calls with VAX/VMS Systems Services .... 4.2.54 

The Other Story About VAX and VMS.3.1.51 

Transportable Software on VAX/VMS Using Support Library . . . 3.4.60 

VAX News .3.2.56 

VAX 11 /780 and VMS .4.4.48 

VIVIO/11 and SCRNIO/11: CRT Screen Forms for VAX-11 .3.3.52 

Welcome to VAX! What is VAX?.2.4.51 

Word Processing for the VAX .4.3.60 

Writing Structured Programs in VAX-11 BASIC.4.1.51 
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FPS80 HAS PROVEN ITSELF IN COMPANIES 
LIKE SHELL INTERNATIONAL. IT IS BE¬ 
COMING A BIG NAME IN FINANCIAL 
PLANNING. 


JOIN US 


WE ARE LOOKING FOR U.S. DISTRIBUTORS 
FOR OUR PRODUCTS. NOW IS YOUR 
CHANCE TO SHARE IN OUR SUCCESS. 


IF YOU SELL DEC COMMERCIAL SOFT¬ 
WARE, WHY NOT ADD THE UP AND COM¬ 
ING FINANCIAL PLANNING PACKAGE TO 
YOUR RANGE OF PRODUCTS? 


FOR INFORMATION CONTACT 
D HOLROYD 

RTZ COMPUTER SERVICES 
6 ST JAMES’S SQUARE 
LONDON SWIY 4LD 
TELEPHONE 01-930 4163 
TELEX 24639 
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SOME WORD PROCESSING 
SECURITY TECHNIQUES 

By Peg Leiby 


I was recently retained as a consultant by a company to 
assist in training and design for a large word processing ap¬ 
plication. They have dedicated a POP 11 /44 primarily to 
word processing with as few other data processing applica¬ 
tions as possibie. 

The company receives numerous telephone or written 
inquiries on a daiiy basis. The goai is to repiy promptly with 
a professionai personalized letter which contains highly 
technical information. In the previous 'typing pool' opera¬ 
tion. cierks using iBM mag-card typewriters chose from 
hundreds of standard form ietters. Most responses were 
able to fit into one of these ietters aithough it was often 
necessary to combine information from more than one. Con- 
siderabie control and effort were required in this manual 
system to ensure both timely and accurate information. 

WORD-11 was chosen in part because of its extensive 
List Processing capabiiities. List Processing's basic function: 
Merges a LIST document (records containing field 
names with variabie information) with a 

FORM document (a standard format with field 
names for variable placement) to produce an 
OUTPUT document of the finished product. 

A SELECTION SPECIFICATION document allows 
specific records in the LIST to be merged with a FORM 
document based on the variable information using con- 
ditionai keywords, boolean operators, wildcard expres¬ 
sions. etc. 

The SELECTION SPECIFICATION can also be set-up to ac¬ 
cess more than one FORM document during the merge proc¬ 
ess, essentiai since the standard letters vary each day. 

List Processing also can sort records in a iist by any field 
value. Data processing type reports can be generated by 
creating a FORM document in the format desired with 
headings, breaks, footings etc. 

I expect that most of the information I give is applicable 
to DEC'S DECWORD as well as to WORD-11. I'm not trying to 
teach WORD-11 here but rather to supply enough 
background information to make the problem and its solu¬ 
tion inteiligible. 

The WORD-11 Files 

There are three main types of files used by WORD-11 in 
an active account: 

INDEX.WPS The WORD-11 index of documents 
WPS.TSK Contains among other things stored 
settings and user defined sequences 
(referred to as UDK's: stored keystroke 
sequences) 

WPSnnn.WPS The actuai WORD-11 documents 
(where nnn is the document number). 
Because there are so many, the standard ietters are 
divided across accounts by their basic technical category. 
While this improves directory iook-up time, the protection 
codes of the documents have to be considered for cross¬ 


account access when combinations of documents are re¬ 
quired. 

The defauit protection code given to the above men¬ 
tioned files is < 60>. This allows read and write access only 
to the owner's account. There are two commands in the 
Document and Transfer Utility which allow a user to 
manipulate the protection codes: 

Pi for the index file (INDEX.WPS) and 

PR for each individual document (WPSnnn.WPS). 

Using the same project number, e.g. [200,1], [200,2], 
[200,3], [200,4], the codes are changed to <56> to aiiow 
read access across programmer number boundaries. ('PIP' 
was used to change all the documents in each account to 
< 56> after the ietters were converted.) Once a document 
and index have aiiowed this access, the CO command is used 
to perform the copy with a subsequent GOLD-GET (inserting 
one document into another) to combine text into one docu¬ 
ment. 

What foiiows is a description of some of the WORD-11 
features that we use in the system along with ways of 
securing them. 

Library Document 

This document contains many of the technical terms, 
standard paragraphs of the existing letters, the list process¬ 
ing record format, and other repetitive information. 

The Library Document aiiows frequently used text to be 
easily recalled and inserted into other documents. What 
make this document unique are the identifiers used before 
the text: for example < < beginning paragraph > > could be 
an identifier with a standard beginning paragraph to foilow. 

It is necessary to inform each individual WORD-11 ac¬ 
count of the document number and location to access as its 
library document. This is a one time notification if the same 
document is to be used all the time and is bandied in the 
Editor's Menu accessed via any WORD-11 document. 

A Library Document may be shared by different ac¬ 
counts if it has been properiy protected. A shared Library 
Document is easy to secure by placing it in a separate ac¬ 
count since the password of that account is controiied. 

User Defined Sequences (UDK's) 

The user defined key feature (UDK), a method of stor¬ 
ing pre-defined keystrokes, is used extensiveiy to automate 
the entire iist processing procedure as weli as to sort iists, 
generate reports, etc. 

The UDK's were created in the same account as the 
Library Document and the WPS.TSK file containing them 
was then PlPed' to the accounts where needed. The specific 
documents in each account, such as the LiST, FORM, 
SPECIFICATiONS, OUTPUTS, etc. all needed the same 
WORD-11 document numbers to allow the UDK's to work. 

Security can be enhanced by the periodic repiacement 
of ail WPS.TSK files from a secure source. 



BRAEGEN MPD HAS THE 
DISK STORAGE 
SUBSYSTEM YOU NEED 

INTRODUCING THE DSL-SERIES OF DISK STORAGE SUBSYSTEMS 


Braegen’s Minicomputer 
Peripherals Division is 
committed to providing 
the systems and 
peripherals 
DEC-users need. 


BENEFITS 

• Compatible with *DEC * PDF-11 and 
*VAX Massbus systems. 

• Provides *RM03/RM05 Emulation 
with enhancements. 

• Supports mixed drive sizes. 


^enpecEP 


• Supports DEC Dual Port Diagnostics. 

• Supports Overlap Seeks. 

• Fast delivery. 

• Local service and quantity discounts 
available. 


For more information on the DSL- Marketing Dept: 

Series of mass storage subsystems or f30rTCr“m 

any of our full line of DEC-compatible OMI-ltljtl I 

computer systems, disk and tape sub- [^mPD 

systems, printers, memories, multiplexers 3320 East La Raima Avenu< 

, , „ . Anaheim, California 92806 

and more, please call or write: Telephone (714) 520-9200 

“Be sure to ask about our field service force in over 50 cities nationwide.” 

*Trademarks of Digital Equipment Corporation 


BRREGEn 

mPD 

3320 East La Palma Avenue 
Anaheim, California 92806 
Telephone (714) 520-9200 
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standard Letters 

The technical content is such that changes to the stan¬ 
dard letters can and do occur on a regular basis. Control of 
these documents is of utmost importance as the informa¬ 
tion is used by the recipients as truth'. While human error is 
the primary concern, maliciousness is not ruled out as a 
possibility. 

Placing these sensitive documents in other accounts 
where the password could be controlled will not work 
because WORD-11 requires all documents merged during 
List Processing to be in the same account. 

It initially appeared that a customized program would 
be required to maintain control of these sensitive 
documents. A file would be created to store the document 
numbers and the date of the most recently approved 
change. A look-up in the RSTS directory would be made to 
compare the actual date a document was changed (per the 
directory) to the date of an approved change (in the file). 
Maintaining this file of sensitive documents would require 
manual up-keep. 

Write Protecting' the document files by adding '2' to 
the protection code wouldn't work because while preventing 
editing or deleting from occurring, list processing wouldn't 
work either. The error message 

?'n' is in use or protected against modification 

(where 'n' is the document number) 
occurs while attempting the merge process. 

Unauthorized deletion of a letter will show up when a 
UDK trying to access the document halts the process. 

The solution for securing the letters still seemed to be 
the program and file mentioned above. It occurred to me 
that if there were something unique about these documents 
perhaps the RSTS directory could be used instead of a 
separate file... oh yes. the < 56> protection code to allow 
the copying across accounts. A program would still be need¬ 
ed: however, now a much simpler version could be written. 
The date would be checked on only those files with a protec¬ 
tion code of <56>. The date of last access is changed by 
WORD-11 whenever a document is edited or even printed. It 
is not changed when accessed by LIST processing. 

A listing of the program follows. The program is ex¬ 
ecuted by typing 'F Secure' at the Main Menu. The program 
scans each directory using a PPN list kept in an ASCII 
parameter file. When it encounters a WORD-11 document 
with a protection code of < 56 > and a date-written greater 
than the date of the last run (stored and updated in the 
parameter file) it creates a list processing compatible record 
In an output file. There is no need for a maintenance pro- 


it is unlikely that the PR option would ever be abused. The 
program used with managerial control does provide reason¬ 
able protection. 


90 

200 


11060 

itOSO 


4090 

4200 


ON ERROR GOTO 19000 


I 
I 
! 

I 

F.PARI = »SY:SECURE.DAT' 

\ F.LST$ = 'SYiSECURE.LST* 

I 

\ F.PARJ = IX 
\ F.LSTX = 2X 
1 

GOSUB 6000 
\ GOSUB 6200 
I 

\ GOSUB 7000 
I 

I MAIN LOOP 

I 

FpR PPNX = IX TO PAR.TOTX 
I 

\ VI = SYS(CHR|(6X) 

♦ CHRI(-IOX) 

♦ PAR. PPNK PPNX)) 

I 


Peg Leiby 4/82 


I PARAMETER FILE 
I LISTING FILE 


I OPEN PARAMETER FILE 
I ALLOW DATE CHANGE 


I OPEN LISTING FILE 


I LOOP THRU PPN'S 


I STRING SCAN FOR DIR TO CHECK & 
& 



\ PPNI = MID(V|,5X,2X) 

1 PROPER PPN FRMT 

1 


\ DSKI = MID(V|,23X,4X) 

1 DEVICE 

& 


\ UNTI = MID(V|,25X,1X) 

1 UNIT 

& 

1030 

PPN.IDXX = OX 

1 SET INDEX LOOK-UP TO 

1ST & 

1050 

GOSUB 4000 

1 DIRECTORY SYS CALL LOOK-UP & 


\ GOTO 1200 IF EX 

I EOF (DIRECTORY) 

& 


\ GOSUB 4200 

1 VALIDATE 

& 

1100 

GOSUB 7200 IF LST.FLGX 

I DESCREPANCY 

& 


\ GOTO 1050 


& 

1200 

EX = OX 


& 


\ NEXT PPNX 


& 

1400 

1 TERMINATION ROUTINE 


& 


GOSUB 6400 

1 STORE TODAY’S DATE 

& 


\ GOSUB 7600 

1 CONVERT LIST TO W11 

& 

1490 

GOTO 32767 

1 


& 

& 

4000 

1 SYS CALL ROUTINE 


& 


VI = SYS(CHR|(6X) 

♦ CHR|(15X) 

♦ CHRKPPN.IDXX) 

I- CHR|(SWAPX(PPN.IDXX)) 

♦ PPNI 

♦ STHING|(16X,0X) 

DSKI 

+ UNTI) 


I SYS CALL TO FIP & 

I DIRECTORY LOOK ON IDX CODE & 
I INDEX OF FILE TO READ & 


I UNUSED 

I DEVICE TO READ 
I UNIT TO READ 


I 

W0RD1X = SWAPX(CVT|X(MID(V|,7X,2X))) I RSTS FILE NAME 
\ H0RD2X = SHAPX(CVT|X(MID(V|,9X,2X))) 

\ H0RD3X = SHAPX(CVT|X(MID(V|,11X,2X))) 

\ FIL.NAMI s RADI(WORDIX) 

•f RAD|(W0RD2X) 

♦ " 

•f RAD|(W0RD3X) 

FIL.PRTX = ASCII(MID(V|,15X,2X)) I PROTECTION CODE 

FIL.DATX = SHAPX(CVT|X(MID(V|,17X,2X))) 


\ PPN.IDXX = PPN.IDXX ♦ IX 
RETURN 

VALIDATION ROUTINE 


LST.FLGX = OX 
\ GOTO 4290 

\ GOTO 4290 


gram for the parameter file as any editor can be used to add 

4250 

1 

IF FIL.DATX > PAR.DATX 

& 

or change PPN’s. 


THEN LST.FLGX = -IX 

1 

I FOUND DESCREPANCY.. FLAG IT & 

A subsequent chain to the WPSDAT program converts 

4290 

RETURN 

I 

& 

the ASCII text to a WORD-11 document. Finally. WPSDAT 

6000 

1 OPEN PARAMETER FILE 

! 

& 

& 

returns the user to the WORD-11 Main Menu, giving the user 


OPEN F.PARI AS FILE #F.PARX 

! 

& 

the impression that the terminal has always been controlled 

6050 

INPUT LINE #F.PARX, A| 

\ PAR.TOTX = VAL(CVT||(A|,4X)) 

& 

& 

by WORD-11. Then a UDK is invoked to sort the list in docu¬ 

6060 

1 

FOR PPNX = IX TO PAR.TOTX 

& 

ment number order and execute list processing, printing the 


1 

\ INPUT LINE IF.PARX, A| 

& 

& 

desired report. 


\ PAR.PPNI(PPNX) = CVT||(A|,4X) 

! 

& 

& 


It should be noted that this is not a fool-proof security 
system since the users could change protection codes if they 
knew how. This possibility is minimized since the clerks are 
kept in the WORD-11 environment. In addition, since they 
are unaware of the protection code process in the first place. 


6090 

6200 


I LAST ACCESS DATE 
I FOR THE NEXT LOOK-UP 


I INITIALIZE 


UNLESS FIL.PRTX = 56X ! THE ONLY ONES TO CHECK.. & 


UNLESS LEN(FIL.NAMI) : 10X 
AND LEFT(FIL.NAM|,3X) = 'WPS* 


\ NEXT PPNX 


INPUT LINE #F.PARX, A| 

\ PAR.DATX = VAL(CVT||(A|,4X)) 


ALLOW DATE CHANGE 






NATIONWIDE DATA DIALOG (215) 364-2800 



70 James Way, Southampton, PA 18966 


REAL RSTS SECURITY 

•LOCK-11 

• Access control with 'hardened' security file and editor. 

• Unlock specific Cp.P^l or [p,*3 for specific user or keyboard. 

• Unlocks can cover specific day & time ranges. 

• Comprehensive alarms from independent sources. 

• Auto log in available, with or without password. 

• Auto keyboard disable on probe. 

• All user-assignable logicals, default KBM, etc, automatic. 

• Person-oriented user-id or (mix/match) KB: based security specifications. 

• SAFE-11 

• A MENU run-time environment [^KBMJ 

• Total containment of non-privileged users. 

• Multi-level MENU access control; 

entire applications, selected menus or 

parts of menus can be locked by: a) system manager 

b) supervisor. 

REAL RSTS CONTROL 

• LCKDPY TSK (VT5DPY in MACRO) The ultimate MACRO SYSTAT. 

• The system manager’s observation platform 

• Issue 'UTILTY' commands without exiting display. 

• Hi-light activity of selected keyboards. 

• Alarms certain critical conditions. 

• Negligible load. 

•DYNPRI TSK (Macro-of course) 

• LOCK-ITsobservation platform. 

• Online-tunable dynamic priority changer. 

• Biases response in favor of KB-state users. 

• Auto hibernate detect and alarm. 

• Can kill HB-s in selected [p,pn] or [p,*] 

• Can print audit trail of arrivals and departures. 

• Negligible system load. 
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6230 

6250 


6290 

6400 


6490 

7000 

7090 

7200 

7250 


PRINT 'Last date checked •; OATEKPAR.DAT}) 

PRINT CHR|(7f) 

INPUT 'Enter new date (MMDDYY) or <cr> '; X$ 

X = VAL(XI) I ERR -> 6230 

PAR.DATI s FND.AY*(X) UNLESS X$ « " 

GOTO 6250 

PRINT 'Invalid date' 

GOTO 6200 

PRINT 'Checking the following accounts: ' 

PRINT USING '## \ \' W, PAR.PPNKII) 

FOR I> s 11 TO PAR.TOTJ 

RETURN 

RE-WRITE PARAMTER FILE WITH TODAY'S DATE 
KILL F.PARI 

OPEN F.PARI AS FILE #F.PAR| 

PRINT #F.PAR|, PAR.TOTI 
PRINT #F.PAR| PAR.PPNI(PPNI) 

FOR PPNI * II TO PAR.TOTI 

PRINT IF.PARI USING '#####', FNJ| 

CLOSE #F.PAR| 

RETURN 

OPEN LISTING FILE 

OPEN F.LSTI FOR OUTPUT AS FILE #F.LST| 

RETURN 

PRINT WORD-11 TEXT FILE 


PRINT #F.LST» 
PRINT #F.LST| 
PRINT #F.LST| 
PRINT #F.LST| 
PRINT #F.LST| 
PRINT IF.LSTI 
PRINT #F.LST| 


'<ppn>'; 
'<doc>'; 
'<dato>' 


PAR.PPNI(PPNI) 

MID(FIL.NAM|,4|,3I) 4 
DATEI(FIL.DATI) 


'<last date>'; DATEI(PAR.DATI) 
'<>' 


7290 

RETURN 


7600 

1 LISTING CLOSE 

& WORD-11 CHAIN 


CLOSE #F.LSTf 


7650 

COR.COMI s F.LSTI ♦ CHR|(13») 

♦ '(DM1) LIST; PI Security' ♦ CHR|(13») 

♦ 'NO' ♦ CHR|(13f) 

♦ 'WPSMEN.BAC[11,0]' ♦ CHR|(13») 

♦ CVTJKOJ) 

7660 

Z| s SYS(CHR|(8I) ♦ 

COR.COM!) 

7680 

CHAIN '[11,0]WPSDAT' 

30000} 

7690 

RETURN 


19000 

El = ERR 


19050 

RESUME 4090 IF 

AND 

ERR * 5} 

ERL * 4000} 


1 

\ RESUME 6230 IF 

ERL * 6200 

19999 

PRINT 'RSTS Error #: 
\ STOP 

'; E}; 'at line number '; ERL 

20700 

1 FLOATING MMDDYY TO JULIAN} 


DEF FND.AYKD) 


20702 

IF D < 010170. 

THEN D7}=-1} 

\ GOTO 20708 

1 EARLIER THAN ALLOWED 

20703 

D8},D1*0/10000. 

\ D»D-(INT(D1)*10000.) 
\ D2,D9}*0/100. 

\ D0}*D-(D9}*100}) 

1 DECOMPOSE MMDDYY TO 08}, 

20706 

D7} * (D8}-1|)»30} - 

(D8}>1}) ♦ (D8}>2}) 


DOrDOl 
D7I « D7I 

♦ ((D8|>2|) AND ((DO/41) <> INT (D0/4|))) - (D8|>3l) 
- (D8|>5I) - (D8|>7I) - (D8f>8l) - (D8*>10|) 

♦ ((DOI - 701) • 101 •• 31) ♦ D9I 


20708 

20712 

20716 

207 1 8 
20720 
32767 


FND.AYI 

FNEND 


D7I 


CHANGE TODAY'S DATE TO JULIANI 
DEF FNJI 

. TO.DAYI s DATEKOI) 

KHDDYYI s MID(T0.DAY|,4|,2f) 

♦ RIGHT(T0.DAY|,7I) 

♦ LEFT(T0.DAY|,2|) 


FNJI s FND.AY|(VAL(MMDDYY|)) 

FNEND 

END 


I TODAY IN DEC FORMAT 


ITODAYS JULIAN D 


T 1IPS& 
ECHNIQUES 

A Column For The Advanced RSTS/E User 


Steven Edwards, Software Techniques. Inc. 


Optimizing BASIC-PLUS-2 Programs Through Profiling 

Profiling is a technique that can help you tune a pro¬ 
gram by detecting which lines (sections, subprograms) are 
executed most frequently. After all. why spend your time 
optimizing a line of code that is executed only a few times. 
First, a few caveats: 

1. although significant improvements in execution 
time can be realized if you know where to look, no 
amount of optimizing can save a poor algorithm. 

2. all lines are not created equal — some lines take con¬ 
siderably more computer resources than others. This 
technique cannot differentiate multi-statement 
lines. 

This technique was implemented by writing a short 
piece of MACRO-11 code named BP2PRO. BP2PRO replaces 
the BASIC-PLUS-2 LIN$ thread routine and prints the cur¬ 
rent module name and line number to the user's terminal. 
This data can be captured and sorted into meaningful infor¬ 
mation. 

Let's take a 'real-life' example. Several years ago, there 
was a program on one of the RSTS SIG tapes (authored by 
Richard Case) named TRACE. TRACE traces' the directory 
blocks read to locate a file. In effect, it shows you how many 
directory blocks FIP will have to read to open a file. The ver¬ 
sion of TRACE that we use in-house is loosely based on 
Richard's program. We'll return to the original program 
(TRANSlated to BAS1C-PLUS2) for our example. 

Here is the procedure to profile a BASIC-PLUS2 pro¬ 
gram: 

1. Assemble the BP2PRO module, using COMMON 
(from the RSTS distribution tape) and PRE (from the 
BASIC-PLUS-2 distribution tape). 

2. Compile the program and link with the BP2PRO 
module. 

3. Run the program via ATPK to collect the profiling 
data. 

4. Sort the log file. 

5. Count the number of times each line was executed. I 
use the UNIQ program from the DECUS "C" language 
tape to count the number of times each line was ex¬ 
ecuted. If you don't have this program it is a minor 
task to write a BASIC program to do the same func¬ 
tion. 

6. Sort the log file from running UNIQ to produce a file 
listing the lines by frequency of occurrence. 
















CHANGE YOUR MIND 


t 





♦ 


Software Techniques Incorporated, one 
of the world’s leading minicomputer 
consulting groups, announces an ex¬ 
citing educational experience that will 
change your mind about planning, de¬ 
veloping, and maintaining software 
systems. 

“Advanced Business Software Devel¬ 
opment” is an 8-hour seminar held the 
weekend before DECUS at our new 
conference center (just minutes away 
from the Disneyland Hotel). 


Now. you can learn the latest tech¬ 
niques in; 

• Systems Analysis 

• Functional Specification 

• Tool-oriented Solutiofis 

• Information Flows 

• Advanced Development 
Techniques 

• BASIC-PLUS-2 

• The RSTS/E Environment 

• Data Structures 

• System Controls 



jf tware 
5c:hniques 


♦ 

V 


♦ 


Your $585 registration fee covers every¬ 
thing: seminar, course materials, 
lunch, and comfortable transportation 
from tfie Disneyland Hotel. Hours are 
9 AM to 6 PM on December 4, 1982. 

Call for your reservation. Space is limit¬ 
ed. 


52^2 Katella Avenue. Los Alamitos. CA 0Oy2O 


( 213 ) 53 ^- 9^05 (-71 - 4 ] 995-0533 
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PROFIL.SRT 


1 

TRACE 00090 

76 

TRACE 00590 

266 

TRACE 00700 

266 

TRACE 00710 

266 

TRACE 00730 

266 

TRACE 00740 

344 

TRACE 01010 

344 

TRACE 01020 

344 

TRACE 01030 

344 

TRACE 01040 

344 

TRACE 01050 

344 

TRACE 01060 

344 

TRACE 01070 

344 

TRACE 01080 

344 

TRACE 01120 

344 

TRACE 01160 

344 

TRACE 01170 

344 

TRACE 01180 


Using this procedure on TRACE we learn that 92 dif¬ 
ferent lines were executed a total of 5642 times. We can see 
from the portion of PROFIL.SRT above, that 16 of the lines 
(about 15%) account for about 90% of the lines executed. 
Clearly these lines are where we should look to optimize this 
program. 

Upon examining the source to the program, we see that 
these lines comprise 2 sections of code. The first section 
(figure 1) determines if the requested file has been found, 
and the other section (figure 2) unpacks the directory link 
from the buffer. 

Let's see what we can learn from these 2 sections of 
code (listed in order of contribution to reducing execution 
time). 

1. BAS1C-PLUS2 allows the programmer the means to 
access word oriented data structures in I/O buffers 
(via MAP statements) much more efficiently than 
BASIC-PLUS. 

Using a MAP statement to define the I/O buffer 
as a large word oriented array allows us to re-write 
line 1160 to be more efficient. 

NOTE 

Line 1160 contains a "FOR" modifier. BP2PR0 
counts all 8 executions of statement 1160 as 1 line. 
Thus statement 1160 is really executed 8 times as 
frequently as shown in PROFIL.SRT. 

2. Most of the lines involve a reference to the array 
W%(). However, the subscript is almost always a 
constant! Array address calculation is a fairly expen¬ 
sive operation compared to a simple variable 
reference (11 instructions v. 2 instructions). 

We’ll re-write the references to W%() to 
reference separate simple integers instead. 

3. Lines 1010-1050 determine the address of the 
desired blockette within the UFD, using a flag word 
(T6%) to indicate if the sign bit is on in the link 
word. 

We can simplify lines 1010-1050 a little bit so 
that the flag word is not needed. 


4. BASIC-PLUS-2 (unlike some other languages) 
guarantees that all expressions in an IF statement 
are executed, even If the first expression is sufficient 
to determine the final outcome. 

The IF statement on line 730 determines if the 
current file is the desired file by comparing the 3 
RADIX-50 encoded words that make up the file 
name and the file type. Obviously, if the first word of 
the file name does not match (which is the most fre¬ 
quent condition), we know the current file cannot be 
the desired file. 

5. BASIC-PLUS2 evaluates a number of expressions at 
compile time. 

The expression “NOT 15%" on line 740 is not 
one of them. Well save a few instructions by 
evaluating it ourselves. 

The optimized’ sections of code are presented in figures 
3&4. 

Summary 

We have limited our effort to 2 short sections of code. 
Profiling the program indicated where our effort could best 
be applied—and where it could not. The result of this exer¬ 
cise is that the ’optimized’ version of the program takes less 
than '/a of the CPU time than the original version did. 

700 X - FNB(W%{1%)) 

I GET FIRST NAME BLOCK 

710 GOTO 730 

UNLESS L% 

1 SKIP THE FILE PRINT OUT UNLESS WANTED 

730 IF W%(2%) - Fl% 

AND W%(3%} - F2% 

AND W%(4%) > E% 

THEN GOTO 760 
1 IS THIS THE FILE? 

740 IF (W%(1%) AND (NOT 15%)) <> 0% 

THEN GOTO 700 

I GO TRY AGAIN UNLESS THE FIRST WORD IS ZERO (AFTER THE FLAG 

1 BITS HAVE BEEN TRIMMED) . 

FIGURE 1 


1010 

\ 

IF 1% < 0% 

THEN T6% - -1 

1% « 1% AND 32767% 
CHECK FOR NEGATIVE BLOCKS 


1020 

Tl% - (1% / 4096%) AND 15% 
SECTOR IN CLUSTER 


1030 

\ 

IF T6% - -1 

THEN Tl% ■ Tl% + 8% 

T6% - 0% 

TAKE CARE OF NEGATIVES 


1040 

T2% - (1% / 512%) AND 7% 
CLUSTER MAP POINTER 


1050 

T3% - 1% AND 496% 

BLOCKETTE - DROP LOW ORDER 

4 BITS 

1060 

T4% - D%(T2% ♦ 1%) + INT(T1% / C%) 
CLUSTER NUMBER IN BLOCK 

1070 

T5% - Tl% - C% • INT(T1% / 
SECTOR POINTER IN BLOCK 

C%) 

1060 

IF T4% - S2% 

THEN GOTO 1120 

IS BLOCK IN CORE? 



1120 IF T5% - S3% 

THEN GOTO 1160 
I CHECK IF SECTOR IS MAPPED 


1160 W%(T9%) » SWAP!(CVT$%(RIGHT(A$, T3% - 1% + (T9% * 2%)))) 

FOR T9% « 1% TO 8% 

I MAP THE BLOCKKETTE 

1170 B9% - T3% 

1 SAVE BLOCKETTE NUMBER 

1180 FNEND 


FIGURE 2 
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1010 

\ 


1060 

1 


1070 

1 


1080 

I 


1120 

I 


MAP THE LARGEST DEVICE CLUSTER AS A WORD ORIENTED ARRAY. 

T2% « (SWAP%(I%) AND 254%) / 2% 

Tl% - T2% / 8% 

T2% « T2% AND 7% 

T3% « 1% AND 496% 

CLUSTER. 

SECTOR. 

CLUSTER. (FOR REAL.) 

BLOCKETTE. 

T4% * D%(T2% + 1%) + INT(T1% / C%) 

CLUSTER NUMBER IN BLOCK 

T5% - Tl% - C% * INT{T1% / C%) 

SECTOR POINTER IN BLOCK 

IF T4% * S2% 

THEN GOTO 1120 
IS BLOCK IN CORE? 


IF T5% » S3% 

THEN GOTO 1160 

CHECK IF SECTOR IS MAPPED 


700 

X% * 

FNB%(W.1%) 




BP2PRO.MAC 

! 

GET FIRST NAME BLOCK 










.Enabl LC 


710 

GOTO 

730 







UNLESS L% 


Title 

BP2PRO,<BASIC- 

PLUS-2 PROFILER>,01,07-AUG-82,<SLE> 

1 

SKIP 

THE FILE PRINT OUT 

UNLESS WANTED 









Package: 

In-House 






Written by: 

Steven L. Edwards 

730 

GOTO 

740 







IF W.2% <> 

Fl% 


Date: 

07-AUG-82 

\ 

GOTO 

740 







IF W.3% <> 

F2% 

; 

Copyright (c) 

1982 

\ 

GOTO 

740 


; 

Software Techniques 



IF W.4% <> 

E% 

; 

Los Alamitos, 

California 90720 

\ 

GOTO 

760 





! 

IS THIS THE FILE? 


; 

This software 

is un-released and Software Techniques has no 





; 

commitment to 

support it at this time, unless stated elsewhere 

740 

IF 

(W.1% AND -16%) 

<> 0% 

; 

in writing. 



THEN 

GOTO 700 





1 

GO TRY AGAIN UNLESS THE 

FIRST WORD IS ZERO (AFTER THE FLAG 

; 



1 

BITS 

HAVE BEEN TRIMMED) 


! 

Modification History 




FIGURE 3 

; 

Ver/Edit 

Date Reason 

140 

MAP 

(BUF) 


' 





BUF%(4095%) 


; 

V7.0-01 

07-AUG-82 Initial conception. 


COPIED FROM DEB. 
(SLE) 


General Description 

This routine replaces the Basic-Plus 2 LINS routine. 
This routine allows you to do generate some profiling info. 

Assembly instructions: 

MAC BP2PRO = PRE, COMMON, BP2PRO 

I 1 


is on the SYSGEN tapes 
is on the BP2 tapes 


Linking instructions: 

Edit the ODL, CMD, or TKB command line to include a 
reference to the object module BP2PRO. Note; do not link to BASICS 
because references to resident libraries are resolved before 
object modules. Ignore the TKB error message; 

%TKB — *DIAG*-MODULE SERROR MULTIPLY DEFINES SYMBOL LINS 


1160 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

! 


TEMP0% = (T5% * 256) 
W.1% - BUF%(TEMP0%) 
W.2% = BUF%(TEMP0% + 
W.3% = BUF%(TEMP0% + 
W.4% = BUF%(TEMP0% + 
W.5% = BUF%(TEMP0% + 
W.6% = BUF%(TEMP0% + 
W.7% = BUF%{TEMP0% + 
W.8% = BUF%(TEMP0% + 
MAP THE BLOCKKETTE 


+ ((T3% + 1%) / 2%) 

1 %) 

2 %) 

3%) 

4%) 

5%) 

6 %) 

7%) 


1170 B9% = T3% 

1 SAVE BLOCK ETTE NUMBER 


1180 FNEND 


Since our module is referenced first, the task-builder 
will ignore the Plus-2 routine. 


Global 

Symbols 



.Globl 

Lin$ 

; Entry points. 


.Globl 

SCbdsg 

; Number conversion 

routine 

.Globl 

$Cdtb 

; Number conversion 

routine 

.Globl 

$Otsv 

; OTS pointer. 



Variable Description and Initialization 
.PSECT RWDATA, RW, D, LCL, REL, CON 


FIGURE 4 


PROTXT; .ASCII <15><12>/??????00000/<15><12> 
PROLEN * .-PROTXT 


PROFIL.CMD 

1 

1 COMPILE THE BASIC-PLUS-2 SOURCE 

1 

BP2 

OLD TRACE 
COM/OBJ 
! 

1 ASSEMBLE THE PROFILING CODE 

1 

MAC BP2PRO « PRE, COMMON, BP2PRO 
! 

1 LINK THE BASIC-PLUS-2 OBJECT 

1 

TKB TRACE « TRACE, BP2PRO, LB;BP2COM/LB 
1 

1 RUN THE BASIC-PLUS-2 PROGRAM VIA ATPK TO GET THE PROFILE LOG 

1 

8 A.TMP = KB; 

SDISABLE LOG 
RUN TRACE 

(enter a non-existant name in a large account) 

“C 

SENABLE LOG 
1 

! SORT THE PROFILE LOG 

1 

SRT B.TMP/FO:S « A.TMP/FO:S:80/KE;CNl.11 
1 

I COUNT THE IDENTICAL LINES 

1 

§ C.TMP = KB; 

SDISABLE LOG 
UNIO -C B.TMP 
"C 

SENABLE LOG 
1 

1 SORT THE LINE COUNT LOG 

1 

SRT PROFIL.SRT/FO;S » C.TMP/FO;S;80/KE;CNl.16 
1 

I CLEAN UP AFTER OURSELVES' 

I 

UNSAVE A.TMP 
UNSAVE B.TMP 
UNSAVE C.TMP 
1 

I QUE THE SORTED, COUNTED PROFILE FILE 

1 

QUE PROFIL.SRT 


.Even; in the quietest moments... 


Mainline Program 


LINS: 


.PSECT 

ROCODE, RO, I, 

LCL, REL, CON 

PUSH 

RO 

; Save RO. 

PUSH 

R1 

; Save Rl. 

PUSH 

R2 

; Save R2. 

GETOTS 

RO 

; Get OTS pointer. 

ADD 

iNMPTR,R0 

; Point to module name pointer. 

MOV 

(RO),R2 

; Point to module name. 

MOV 

#PROTXT+2,RO 

; Point to name area. 

MOV 

(R2)+,(R0)+ 

; "NO 

MOV 

(R2)+,(R0)+ 

; NA 

MOV 

{R2)+,(R0)+ 

; ME" 

MOV 

R4,8SOTSV 

; Store the pointer to the line 

MOV 

(R4)+,R1 

; Save the current line number. 

MOV 

SP,R2 

; No zero suppression. 

CALLX 

$CBDSG 

; Convert Binary to Decimal, SiGned 

MOV 

•XRB,R0 

; Address of Xrb. 

MOV 

•PROLEN,(RO) 

f ; Length ot text. 

MOV 

(R0)+,(R0)+ 

/ , . - - 

MOV 

•PROTXT,(R0)+ 

; Address of text. 

CLR 

(R0) + 


CLR 

(R0) + 


CLR 

(R0) + 


CLR 

(R0) + 


.WRITE 


; Print the text. 

POP 

R2 

; Restore R2. 

POP 

R1 

; Restore Rl. 

POP 

RO 

; Restore RO. 

JMP 

8(R4)+ 

; Exit. (Back to Plus 2) 


.END 


DON’T WAIT FOR THE MOVIE. 

THE RSTS INTERNALS MANUAL IS HERE! 
















Sooner or later you will be using electronic 
mail. It just makes good sense. When you do, 
you will want a system that is complete—a 
delivery system, a scheduling system, and an 
information manager. Your electronic mail 
system will become an essential part of your 
office environment. USER-MAIL is such an 
electronic mail system* 

USER-MAIL’s power is easy to control. It 
relates to the way you work. Electronic IN, 
OUT, and HOLD baskets are just what you 
would expect. You can scan your IN basket, 
selecting only those message subjects you 
wish to read. Or, you can place a 
message into your HOLD basket for a 
number of days to have it automati¬ 
cally reappear in your IN basket on 
the appointed day. You can even have 
USER-MAIL recall specific messages 
by providing your own selection 
criteria. Replying", forwarding, and 
sending to groups are as easy as can 
be. And these are just a few of the 
features in store for you. 



You owe yourself a closer look. 
Write for a brochure or give 
us a call direct. 


•diQsoa 

■00@CDa 

moomm 


North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(714) 745-6006, Telex: 182773" 


'USER-MAIL is currently available on DEC computers using the RSTS operating system. 
RSTS is a registered trademark of Digital Equipment Corporation 
USER-MAIL is a trademark of Logic extension Resources. 
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You can get more from your 
RSTS system ■with MAS-M. 


MAS-M is the application 
software system from Martin 
Marietta Data Systems that can 
help you do more with your 
DEC hardware. That’s because 
MAS-M is the on-line software 
system that gives you much 
more than you’d expect from 
packaged software. 

More Flexibility. 

MAS-M’s modular design lets 
you choose from 10 different ap¬ 
plication systems; 

□ Accounts Receivable 

■ Accounts Payable 

■ General Ledger 

B Order Processing 

□ Invoicing 

B Inventory Control 

B Inventory Accounting 

B Bill of Materials 

B Material Requirements 
Planning 

9 Purchasing 

You can implement just the 
modules you need to satisfy 
your demands. And no matter 
which combination you choose, 
the MAS-M system is always 
fully integrated. 

MAS-M’s flexible design also 
makes it easy to install, and 
simple for your users to operate. 
And, since MAS-M is written in 


BASIC-PLUS-2, and based on 
the RMS-11 data management 
system, the software is fully 
compatible with your current 
RSTS/E operating system and 
DEC software. 

More Control. 

You can count on MAS-M for 
more comprehensive data accu¬ 
racy and security, too. 

MAS-M’s powerful transac¬ 
tion processing MONITOR gives 
you maximum control over your 
data—from start to finish. User 
passwords and menu selections 
are checked against user secu¬ 
rity profiles. Data entry valida¬ 
tion is also standardized in the 
MAS-M MONITOR, so any in¬ 
valid data can be corrected 
before it reaches your applica¬ 
tion program. 

More Productivity. 

MONITOR is also an impor¬ 
tant tool in developing new ap¬ 
plications. You can use 
MONITOR to create input 
screens and validation rules on¬ 
line. And, MONITOR can help 
you improve programmer pro¬ 
ductivity by providing a stand¬ 
ard framework for input of code 
that minimizes the difficulties of 


user interface and terminal 
characteristics. 

More Support. 

You can coimt on Martin 
Marietta Data Systems for sys¬ 
tem development and im¬ 
plementation, comprehensive 
training, and clear, concise doc¬ 
umentation. We can also pro¬ 
vide an extensive Maintenance 
Service to support your MAS-M 
system. 

What it all adds up to is a 
packaged software system that 
can give you everything you 
need to get your jobs done. And 
more. Write or phone us today, 
and we’U tell you more about 
how the MAS-M software sys¬ 
tem can work for you. 



MAS-M 


The Software 
System That Can 
Help You Do More. 


MARTIN MARIEHA 
DATA SYSTEMS O 


Martin Marietta Data Systems 
Marketing Services. R/H 
6303 Ivy Lane. Greenbelt, MD 20770 
(301) 982-6500 
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DEXPO West 82. 

The Only Show As Important 
As Your DEC* Computer. 


DEXPO West 82. DEXPO West 82. 

100% ''Compatible" The Only Show 

With Your DEC System. You Really Need. 


DEXPO West 82. 
Free to All DECUS* 
Conference Registrants. 


There's a world of com¬ 
patible products that can 
make your DEC computer 
do more. Do it faster. Do it 
cheaper. Or just do it better. 
And you'll discover that 
world at DEXPO West 82. 

A world of 250 vendors 
demonstrating all the latest 
DEC-compatibles. More 
DEC-compatibles than at 
any other computer show 
in the world. 


*DEC and DECUS are registered 
trademarks of Digital Equipment 
Corporation. 


PEXPO West 82 makes it 
easy to find the hardware, 
software, services and sup¬ 
plies you're looking for. 
Thousands of alternatives, 
enhancements and special 
solutions will be on ex¬ 
hibit—/or the first 
time anywhere. You'll even 
find a wide range of com¬ 
patibles for DEC'S new 
personal computer and 
CAD/CAM introduc¬ 
tions. Everyone who 
owns, manages or uses 
a DEC computer belongs 
at DEXPO West 82...top 
management, financial 
management, DP manage¬ 
ment and senior staff. 


DEXPO West 82 is only 
five minutes from the Ana¬ 
heim DECUS Conference. 
It's easy to make the Show 
part of your schedule. Free 
shuttle busses will take you 
from the conference to the 
Show and back again. And 
your DECUS 
conference 
badge 
entitles 
you to 
enter the 
Show 
without 
paying a 
registration 
fee. 



DEXPO 
West 82 

The Second National 
DEC-Compatible 
Industry Exposition 

Anaheim Convention Center 
Anaheim, California 
December 7-9,1982 


-1 

SEND FOR COMPLETE DETAILS ON THE I 

WORLD'S MOST COMPLETE | 

DEC-COMPATIBLE SHOW j 

□ Tell me how I can save time and money on DEXPO West 82 I 

registration, air fare, hotel accommodations and car I 

rentals. | 

□ Send_extra copies for my associates. i 

(amount) I 

NAME_ 1 

TITLE_ I 

COMPANY_ I 

ADDRESS_ [ 

CITY_STATE _ ZIP_ ! 


Mail to: Expoconsul International, Inc. 

19 Yeger Road, Cranbury, NJ 08512 
Tel: 609-799-1661 
















The VAX-SCENE 

Number 10 (rsts professional, voi. 4. no. s) October 1982 



INSIDE: 

□ VAX PERFORMANCE NOTES 

□ $FA0, The Formatted ASCII Output Directive 
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VAX 

PERFORMANCE 

NOTES 

By Carl B. Marbach 


The current offering of VAX computers consists of the 
dual processor 11 /782, the single processor 117780, mid¬ 
range 117750 and the smallest VAX the 117730. Knowing 
which one of these is right for your application is a hard job. 

There is one major premise which all performance data 
must be measured against: 

All application systems are different. 

Thus, it is impossible to accurately predict how your 
system wiii run on any given processor, with any given op¬ 
tions. Before you despair, it is possible to find out the 
general performance of these machines and make an 
educated guess about whether your particular application 
will run. The RSTS newsletter recently carried an article on 
performance that made some DEC people mad. mostly 
because it was possible for the reader to become confused 
about what the data really said. The best way to get perfor¬ 
mance data is to call your local DEC salesperson and ask him 
to come out and discuss performance with you, teii him to 
bring his sales guide’ and to make sure it has the chapter 
that includes performance. What I am trying to tell you here 
is what kind of information you can get, and how to get it: 
not what the information is. 

Inside DEC there are groups designated to do perfor¬ 
mance measurement and reporting. They have very 
sophisticated tools (computers and programs) to help them 
do this measurement. They also have some of the expertise 
necessary to do this job. These engineers load up various 
machines with several different workloads' to simulate dif¬ 
ferent user application environments. Some of these 
workioads are an insurance company simuiation, a speciai- 
ized application package (COBOL programs), college registra¬ 
tion system simulation and an order entry system. 

Each of these simulations is run and data gathered on 
certain metrics’. The metrics measured include average 
response time, transaction throughput, transactions per 
hour, mean service time (time needed to complete on whole 
transaction, user productivity and computation time). This 
is not meant to be the whole list, but is representative of the 
type of measurement that is made. 

Results of these tests are informative ONLY if the 
reader takes the time to refiect on the reasons for the dif¬ 
ferences between two configurations. The number of batch 
jobs per hour run with 12 interactive terminals by an 
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RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11. 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment 

■ Concurrent use of multiple run-time systems. 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS. PDP-11. VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


ROSS/V is available from; 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington. Massachusetts 02173 
(617) 861-0670 


(Central U.S.) 

Interactive Information Systems, Inc. 

10 Knollcrest Drive 
Cincinnati. Ohio 45237 
(513) 761-0132 

CIRCLE 67 ON READER CARD 


(Western U.S.) 

Online Data Processing, Inc. 

N. 637 Hamilton 
Spokane. Washington 99202 
(509) 484-3400 


11 /730 is not improved by increasing from 2MB to 3MB. 
Why? An 11 /750 can support about 50% more interactive 
terminais while running the same number of batch jobs per 
hour with a similar increase from 2MB to 3MB of main 
memory. Why? The 11 /730 has run out of CPU power at 
that level of batch Jobs and interactive terminals, adding 
memory won’t stretch the CPU. but the 11 /750 has more 
CPU power to go and adding the memory frees the CPU 
power to be used by the application instead of managing the 
(too small) 2MB. What this tells you is not that the 1 1 /730 
is a 12 terminal machine and the 11/750 is a 24 terminal 
machine, but rather that the 11 /750 can benefit from more 
memory and the 11 /730 can’t. It was interesting to note 
that on one of these simulations the 11 /730 peaked (2 sec¬ 
ond response) at 20 terminals and 2 MB. the 11 /7S0 at 44 
terminals and 6MB. and the 11 /780 at 56 terminals and 
6MB. Just to show you how foolish a comparison like this 
can be. during a different simulation an 11 /780 NEVER had 
less than a 2 second response time even with 4MB and 8 ter¬ 
minals! We know that the task must have been more com¬ 
plicated in this case, and that the 2 second response time 
stayed the same until there were more than 32 active users. 

Another interesting parameter to watch in these 
‘metrics’ is when the flat line of a graph begins its sharp up¬ 
ward swing: that is. when response time goes way up as you 
add the 35th terminal. One of the very nice things about 
RSTS is the way it seems to degrade slowly rather than fall¬ 
ing off the end of the table’ when it reaches some limit. Up 


to a point this is true, but beyond that limit — bad news. 
Small buffers used to be a problem where large systems 
would run very slowly when the small buffer count dropped 
below 50-60; memory can be a problem when swapping 
starts eating up CPU and disk transfer capacity and this 
hurts more on the slower CPUs. I have seen systems that 
overload their disk transfer capability and go slowly when 
several disk intensive Jobs are running; even though lots of 
CPU is still available. Even when systems slow down, or 
response time increases this can still mean that tuning (soft¬ 
ware) or some hardware enhancement can significantly in¬ 
crease the machine’s capacity. With all this in mind, for one 
workload the 11/730 started to slow down sharply at 16 
users, the 11 /750 at 28 users and the 11 /780 at 36 users. 
For comparison between machines these results may be 
valid, but an 11 /780 is more than a 36 user machinel In 
fact, for comparison the 11 /780 is a little more than twice 
an 11 /730 and about 133% of an 11 /750 under these con¬ 
ditions. In yet another simulation the 11 /750 (6MB) began 
slowing rapidly at 56 users and the 11 /780 (6MB) at almost 
80 users, giving the 11/780 about 140% of the 11/750’s 
performance. Getting a flavor for relative power? More can 
be gotten directly from your DEC salesperson! 

There is much more to be said about performance, and 

lots more VAX information. Next we will talk about single 

user performance, standard benchmarks like whetstones’. 

single instruction timings and some comparisons with the 

11 /44 and others. ^ __o >i 

. . . continued on page 84 
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$FAO 


The Formatted ASCII Output Directive 
(or, Print-Using in Macro ...) 


By Bob "MACRO MAN" Meyer 


The $FA0 monitor call (excuse me. I mean ‘System Ser- 
vice': Oh. how I wish they'd stop changing terms...) turns 
out to be quite a handy tool. Basically, the call provides a 
means of getting numeric data to the outside world (which 
under RSTS requires various numeric conversion subrou¬ 
tines). formats the data just about any way you like, allows 
you to intermix text with the numbers (i.e. ‘Balance: 
$1950.50'). AND does output in octal.decimal or hexl 

The heart of the $FA0 directive is the ‘control string’ 
parameter. This .ASCID string (.ASCID is like .ASCII, but the 
assembler creates a STRING DESCRIPTOR before the string 
for you) is interperted by VMS when the directive is exe¬ 
cuted and gives you strict control on how the output will 
look. 

If you’ll turn to the sample program, in the TEXT psect. 
locate the label CTRL:: this is the control string for our 
demo. What your looking at is as follows: The ‘!13<’ 
specifies a field with a length of 13: this field is terminated a 
few characters later with the symbols ‘!>’. The string 
‘Decimal:’ will be output first; the ‘!UW‘ indicates that an 
UNSIGNED WORD will go here; this word will be parameter 
*1 in the FAO call. The number will be padded to the left 
with spaces so that the entire string (including 'Decimal:') 
will have a total length of 13. (Note that the !UW and other 
such commands must be upper case.) 

Moving down the control string, you'll find the com¬ 
mand ‘!0W’ (OCTAL WORD), which will output the second 


described above); a buffer where the system can return the 
formatted string (‘FAODESC’ points to the descriptor which 
points to the actual FAO buffer); a word in which the system 
can put the length of the formatted string (FAOLEN); and 
finally, a number or list of numbers that you’d like format¬ 
ted in the output string. (A second call is also provided. 
$FAOL. which acts like $FAO but accepts the address of a 
LIST of arguments as the PI parameter, for applications 
where several pieces of data are to be output.) 

Once the $FAO call has been executed, we actually print 
the contents of the FAO buffer on the terminal. From there I 
just bump the counter NUM. and loop till I’m convinced that 
it works. 

This demo program should work if keyed in as is. To 
assemble & link: 

$ MAC DEMO 
$ LIN DEMO 
$ R DEMO 

The results should look something like: 


Decimal: 

0 

Octal: 

000000 

Hex: 

0000 

Decimal; 

1 

Octal: 

000001 

Hex: 

0001 

Decimal: 

2 

Octal: 

000002 

Hex: 

0002 

Decimal: 

3 

Octal: 

000003 

Hex: 

0003 

Decimal: 

4 

Octal: 

000004 

Hex: 

0004 


parameter (P2) in octal, and ’!XW’ (HEX WORD) will display 

Decimal: 

10 

Octal: 

000012 

Hex: 

OOOA 

the parameter P3 in hex. The ’!/’ adds a CRLF to the output. 

Decimal: 

11 

Octal: 

000013 

Hex: 

OOOB 

Some other FAO commands are: 

Decimal: 

12 

Octal: 

000014 

Hex: 

OOOC 


!%D insert today’s date in the output string 
!%T insert the current time 
!%S insert the letter 'S’ if the next parameter is > 1 

!ZW like !UW (unsigned word), but zero fill 
!AS insert an .ASCID string into the output string 
Lengths for items can be specified by inserting a length 
count between the T and the command: 

!5ZW insert a decimal number, and zero fill to 5 
places 

Repeat counts can also be used: 

!3(6ZW) insert 3 decimal numbers, each 6 characters 
long 

The special symbol ’*’ tells FAO to use the next 
parameter on the list for the next required value; for exam¬ 
ple. the command; 

!«(4UW) 

interprets the first parameter to be a count of the number 
of items to follow; each item will be taken as an unsigned 
word with a length of four. 

To use the $FAO call, you must provide the following in¬ 
fo: (see label 10$: in the demo program) a control string (as 


(except for the 3 dots. 
Have fun! 


faodesc: 


.long 

.long 

.blkb 

.word 


80 


faobuf 

faobuf: 
faolen 
ttdesc: .long 80. 

.lortg ttbuf 
ttbuf: .blkb 80. 

ttlen ".-ttbuf 
tt: .ascid /TT/ 

ttchan: .word 0 

.pspct text 


code 

.word 0 
Sassign.s- 

devnam^tt 
chanottchan 
bibs r0,10$ 
ret 


;number to 1 

;the fao der 

.'length of fao buffer 

.■address of the fao buffer 

.'the actual buffer 

;holds length of string returned by fao 

;terminal descriptor 

.-address of tt buffet 

.-actual tt buffer 

.-length of tt buffer 

;nante of this terminal for Sassign 

;holds channel returned by $assign 


1> Octal: low Hex: IXW !/' 

;the fao control string 


Sf ao_s- 


ctrstr=ctrl,- 
outlen^faolen.- 
outbuf"faodesc, - 
pl"num.p2*num.p3“num 


chan=ttchan,- 
func=#ioS_writevblk. 
pl"faobuf.p2*faolen 


incw num 

cmpw num.*2$. 

blss 10$ 


.-format an output string 

.-address of fao control string 

.-where to put length of formatted string 

.-address of fao descriptor 

.-parameters to be output 

;print the contents of the fao 
;buffer on the tt: 


.-bump the counter 
;have we seen enough? 
;not yet; loop 

.-yes; just exit to VMS 
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C^ALC 


THE ELECTRONIC SPREADSHEET 
FOR ALL COMPUTERS 


• C-CALC is the high-performance electronic spreadsheet 
written in the extremely CPU-efficient ‘C’ language-- 
designed with speed, efficiency, and transportability in 
mind. 

• C-CALC is extremely user-friendly, with an ON-LINE HELP 
feature, comprehensive documentation, and built in train¬ 
ing procedure. C-CALC Is a ‘menu’ oriented system with 
easy to use single level commands. 

• DIGITEC Software Design, Incorporated offers on-going 
product maintenance and extensive customer support 
services. 

• C-CALC Is currently or soon to be available for the follow¬ 
ing operation systems: RSTS/E*, RSX-11M*, IAS*, RT11*, 
VAX/VMS*. TOPS 10/20*, UNIX**, VM/CMS(IBM), 
GCOS(HONEYWELL), and many more. Data is fully 
transportable between operation systems. 

For more information, 

Call: (206) 821-7507 

• Registered trademark of Digital Equipment Corporation 

• * Registered trademark of Bell Laboratories 


C-CALC’s features include: 

• Fully transportable data 

• Supports most types of terminals 

• Extensive ON-LINE HELP 

• Built in training procedures 

• Menus and single level commands 

• Variable width columns 

• Comprehensive worksheet consolidation 

• Computed Coordinates 

• Alpha or Numeric Column Coorordinates 

• IF-THEN-ELSE 

• Conditional formatting 

• Equations may contain text 


DIGITEC 


Software Design, Inc. 


14125 - 108th Avenue NE, Kirkland, WA 98033 
(206) 821-7507 


CIRCLE 134 ON READER CARD 


THE RSTS CRYSTAL BALL — Part 3 

... continued from page 12 

is shown in figure 3. A sampie BASIC + program which 
prints the load averages is listed at the end of the article, 
after LOADAV.MAC. 

If you encounter any probiems with the instaliation or 
the code, please contact me. If you are not in the mood to 
key all of the files, send a check for $20.00 to IISI (attn:MCG) 
and we ll send you a tape with all of these goodies, plus the 
ONLRES source from last month. Please specify 800 or 

leoobpi. 

RSTS V7.2 NOTES 

Unfortunateiy, as of this writing, we have not received 
our V7.2 distribution, so I don’t have much information on 
internai changes. I do know that DEC didn’t keep its promise 
about the new spooling package. Apparentiy, V7.2 wiii stiil 
run the old, cruf^ V6A spooling package that we all know 
and love(?). 

I do know of two internal changes in V7.2. The first is a 
fix for the UU.TRM (set terminal characteristics) call. There 
are no problems with setting terminai speeds in V7.2. 

Secondiy, I heard that INIT.SYS was changed to 
automatically shuffle the memory allocation table, if any en¬ 
try has changed in size. What this means is if you use 
ONLRES to change your monitor size, or change other 
memory aliocation values in the monitor SIL, INIT will fix the 
memory allocation tabie for you when you reboot. If your 
monitor got smaiier, INIT will push XBUF and the default 
RTS down in memory so there is no wasted space. Alter- 


*AG/,MHB/-13C/13-JUL-82,MHB/G/SJM/I#/MCG#<cr> 
*AH/<tab>DEFORG<tab>QSTCTL<tab><tab>;QUEUE STATISTICS/V<cr> 
<tab>DEFORG<tab>QSTCTL<tab><tab>;QUEUE STATISTICS TABLE<cr> 

*AV<cr> 

<cr> 

*AV<cr> 

. ***** tBL is the start of read-only memory A****<cr> 

*l<cr> 

<tab>DEFORG<tab>LODCTL<cr> 

<cr > 

LOADAV::<tab><tab><tab>; Load average buckets, pointed to by LOADPT<cr> 
<tab><tab><tab><tab>; at TTYHCT - 2<cr> 

LOADIM::.BLKWO<tab><tab><tab>; One minute load average<cr> 

LOAD5M::.BLKWO<tab><tab><tab>; Five minute load average<cr> 

LOADFM::.BLKWO<tab><tab><tab>; Fifteen minute load average<cr> 

LOOIML::.BLKW0<tab>2<tab><tab>; Internal 32 bit one minute load 
average<cr> 

LOD5ML;:.BLKW0<tab>2<tab><tab>; " « - • - "<cr> 

LODFML::.BLKW0<tab>2<tab><tab>; " - » fifteen " " "<cr> 

<cr> 

<esc>*V<cr > 

; ***** tbL is the start of read-only memory *****<cr> 

*H/NSPTMO/V<cr> 

; NSPTMO - NSP TIMEOUTS.<cr> 

*AV<cr> 

;<cr> 

*AV<cr> 

; THIS SUBROUTINE IS CALLED ONCE A SECOND, EVERY SECOND...<cr> 

*AV<cr> 

;-<cr> 

*AV<cr> 

<cr> 

*AV<cr> 

<tab>DEFORG<tab>NSPTMO<cr> 

*I<cr> 

<tab>DEFORG<tab>LOADAV<cr> 

NSPTMO::CALL<tab>NTMO<tab><tab>; Call the real NSP timeout checker<cr> 
<tab>SPLC<tab>3<tab><tab>; Back to level 3 just in case<cr> 
<tab>JMPX<tab>COMPLD<tab><tab>; Now off to compute the load average<cr> 
<cr> 

<esc>*V<cr> 

<tab>DEFORG<tab>NSPTMO<cr> 

*G/DEF/-3DV<cr> 

<tab>ORG<tab>NSPTMO<cr> 

*AV<cr> 

<cr > 

*AV<cr> 

NSPTMO:<tab>RETURN<tab><tab><tab>;NOTHING UNLESS OVERLAID<cr> 
*G/SP/-2DV<cr> 

NTMO:<tab>RETURN<tab><tab><tab>;NOTHING UNLESS OVERLAID<cr> 

*EX<cr> 

FIGURE 1. CPATCH Command File for TBL.MAC 
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*AG/,MHB/-13C/13-JUL-82,MHB/G/ABC/I#/MCG#<cr> 

♦H/TTYHCT;:.WORD<tab>0<tab><tab>;# OF UNHANGS PERFORMED/V<cr> 

TTYHCT;:.WORD<tab>0<tab><tab>;# OF UNHANGS PERFORMED<cr> 

*0AI<cr> 

LOADPT::.WORD<tab>LOADAV<tab><tab>; Pointer to load average bucket8<cr> 
GLOBAL<tab><LOADAV><cr> 

<cr> 

<e8c>*0AV<cr> 

TTYHCT::.WORD<tab>0<tab><tab>;# OF UNHANGS PERFORMED<cr> 

*EX<cr> 

FIGURE Z. CPATCH Command File for TTDINT.MAC 


;7(.ENABL LC 

TITLE LOADAV,<Systein load average computation>,11,13-Jul-82,MCG 


; Copyright (C) 1982 by 

; Integral Information Systems, Inc., Los Angeles, California 

; 

; Title to and ownership of this software shall at all times re- 

; main with Integral Information Systems. 

; 

; The information in this software is subject to change without 

; notice and should not be construed as a commitment by Integral 

; Information Systems. 

; 

; This software is unreleased and Integral Information System.ENABL LC 

TITLE LOADAV,<System load average computation>,ll,13-Jul-82,MCG 


*G/TBL,TBL/V<cr> 

TBL,TBL/C-IN:COMMON,KERNEL,DK:CONFIG,IN:CHECK,TBL<cr > 
*AI<cr> 

$R MACRO.SAV<cr> 

LOADAV ,LOADAV/C-IN:COMMON,DK:LOAOAV<cr > 
<e8C>*G/TTEVR/V<cr > 

TTDINT/C<cr> 

*AI<cr> 

LOADAV/C<cr> 

<e8C>*EX<cr> 

*G/TBL,TBL/V<cr> 

TBL,TBL/C-IN:COMMON,KERNEL,DK:CONFIG,IN:CHECK,TBL<cr > 
*AI<cr> 

$R MACRO.SAV<cr> 

LOADAV,LOADAV/C-1N:COMMON,DK:LOADAV <C r > 
<e8C>*G/TTDINT/V<cr> 

TTDINT/C<cr> 

*AI<cr> 

LOADAV/C<cr> 

<e8C>*EX<cr> 


; Copyright (C) 1982 by 

; Integral Information Systems, Inc., Los Angeles, California 

; Title to and ownership of this software shall at all times re- 

; main with Integral Information Systems. 

; 

: The information in this software is subject to change without 

; notice and should not be construed as a commitment by Integral 

; Information Systems. 

; 

; This software is unreleased and Integral Information Systems 

; has no obligation to support it at this time, unless stated 

; elsewhere in writing. 


; COMPLD - Compute the load average 

; 

; Call: Called once a second through NSPTHO hook 


FIGURE 3. CPATCH Command File for SYSGEN.CTL 

DEFORG COMPLD 


nately, if the monitor grew in size, it will push up the other 
entries to make room. 

Finally, a note about named directories. I don’t know if 
named directory support has been removed from V7.2 (I'd 
have to guess it hasn’t). Aithough the code more or less 
works, there are several dangerous bugs in it. Occasionaliy, 
the code will blast the first block of disks with named direc¬ 
tories (i.e. the root of the MFD). This means a potentialiy 
nasty cleanup job. I don’t have a fix for this bug, nor have I 
even had the time to look and see what causes it. I wouid ad¬ 
vise against using named directories without such a fix. 

CONCLUSION 

Several people have requested an ONLSET program: i.e., 
something that will perform some or all of the functions of 
INIT’s SET command on-iine. Also. I have had some time to 
play with FMS, and have managed to design forms using 
VT100 graphics, double height characters, and other 
goodies that DEC insists FMS won’t deal with. If there is any 
user interest in either of these topics, please let me know. 
Perhaps I will make them the subject of future articles. 
DECUS sessions, etc. 

I hope you have enjoyed this instaliment of the RSTS 
Crystai Bail. I will continue to try to present information 
which is interesting and useful. In the future, I may be able 
to answer any technical or semi-technical questions that you 
send to me. In any case, I would enjoy hearing from you. so 
if you have any questions, gripes, or suggestions, call or 
write me at the address below. Until next time, hack hack! 

Michael C. Greenspon. C/0 Integral Information Systems. 
9832 Vicar Street. Suite 100, Los Angeles. California 90034, 
(213) 558-0732 

The JOB’S connected to the lOB. The lOB’s 
connected to the WCB .... 

See the RSTS Internals Manual. 


10 $: 


CLR R2 ; 

CLR R1 

TST {Rl)+ 

CMP R1,•J0BMX2 

BHI 30$ 

MOV JOBTBL(Rl),R0 ; 

BEQ 10$ 

MOVB JDPRI(R0),R0 ; 

CMP R0,«-121. I 

BLE 10$ ; 

MOV JBWAIT(Rl),R0 ; 

BIT R0,JBSTAT(R1) 

BNE 20$ ; 

BIT •JS.SY,R0 j 

— .-2 ;**PATCH* 


Initially no cunning jobs 
Stact with job *0” 

Go to next job * 2 
Done all we need to do? 

Yes, go do computations 
Get job data block pointer 
No job, try next one 
Get the job's priority 
Is the job suspended? 

Yes, go to next one 
Get the job's waits 
Is the job runnable? 

Yes, bump counter 
Waiting on disks, etc? 

‘ Waits to consider runnable 


20 $: 


BEQ 

INC 

BR 


10 $ 

R2 

10 $ 


j No, try next job 
; Count one more job runnable 
; And loop 


30$: 


MUL 910000.,R2 ; Make it jobs • 10000. 

CALL 100$,R5,<LOD1ML,60.,LOADlM> ; Compute load averages 

CALL 100$,R5,<LOD5ML,60.*5.,LOAD5M> 

CALL 100$,R5,<LODFNL,60.*15.,LOADFM> 

RETURN ; That's all 


GLOBAL <JOBMX2,JOBTBL,JBWAIT,JBSTAT,LOADIM,LOAD5M,LOADFN> 
GLOBAL <LODlNL,LOD5ML,LODFNL> 


; Do the load average computation: 

; 

; R5 -> Old load average bucket, number of samples in average, 

; normallized load average bucket (16 bits) 

; R2/R3 - Current number of jobs in a cun state * 10000. 


100$: MOV {R5)+,R4 

MOV (R4),R1 

MOV 2(R4),R0 

DIV (R5),R0 

SUB R0,(R4) 

SBC 2(R4) 

CLR RO 

DIV 9100.,R0 

SUB R0,(R4) 

SBC 2(R4) 


; Pick up the address of the load average 
; Get the average 
; all 32 bits 
; Get 1/nth of load average 
; Subtract this nth from the average 
; handle carry if any 
; Clear for divide of remainder 
; A neat hack to get averages down to zero 
; Subtract out this smaaaaall number 
; handle carry 


MOV R2,B0 

MOV R3,R1 

DIV (R5)+,R0 

ADD R0,(R4) 

ADC 2(R4) 

MOV (R4),R1 

MOV 2(R4),R0 

DIV 9100.,RO 

MOV R0,8(R5)* 


RETURN R5 


; Copy so as not to clobber these 

; Get 1/nth of jobs in a cun state * 10000. 

; Add it into the load average, forming the new 
; load average * 10000. Handle carry if any 
; Pick up the load average now 
; All 32 bits of it 

; Make it into load average * 100. (16 bits, 

; no round-off error) and save it, fix return 
; address (isn't the PDP-11 instruction set 
; great for a 16 bit processor?) 

; That's it, go home 


.DSABL 

.END 

10 


\ 

\ 

\ 

\ 

\ 

\ 

\ 


\ 


\ 

\ 

\ 

\ 

\ 

\ 


LSB 


1 Simple BASIC-f program to display the system load averages, i 
I See text of article for more information on implementation, etc. $ 

DIM M%(30%) 4 

CHANGE SYS(CHR$(6%) CHR$(-12%)) TO H% I Get monitor tables pact II 6 

LOADPT% • M%(11%) ♦ SWAP%(M%(12%)) - 2% 1 Get TTYHCT address - 2 as $ 

1 pointer to load averages fc 

LOADAV! « PEEK(LOADPT!) 1 Now get address of averages & 

LIMIN - FNREAL(PEEK(LOADAV!)) I Get one minute average $ 

LSMIN - FNREAL (PEEK (LOADAV! 2!)) 1 Get five minute average t 

L15MIN - FNREAL (PEEK (LOADAV! 4!)) 1 Get fifteen minute average fc 

PRINT USING 'Load averages: 1 min: 99.99, 5 min: 99.99, 15 min: 99.99”, i 
LlMIN/100., LSMIN/100., L15MIN/100. k 

1 Now print out the averages 

S$ - SYS(CHR$(9!)) I and get out 4 


DEF* FNREAL(INTEGER!) 

FOO - INTEGER! (. 

FOO ■ FOO ♦ 65536. IF FOO < 0. 
FNREAL « FOO 
FNEND fc 
END 


1 Convert integer to real k 


I Fix BASIC's stupidity about k 
I unsigned integers k 
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LETTERS to the RSTS Pro... 

... continued from page 6 


lower levels. Hence this is not a problem for the 32 
KW limit. 

I must defend the ‘developers’ on this point, and 
my authority stems from the fact that I have been a 
developer, albeit a short time, and before that, a 
Region Support person with DEC here in SPR 
(South Pacific Region). My RSTS experience 
stems from the V4 days (Do you remember the 
28KW RSTS system??). 

Thanks again for your great efforts, and a fine 
mag. Look forward to your DEC Pro. 

Regards from down under, Harry Starr 
Gold Coast Computer Services 
Surfers Paradise, Qld., Australia 

In an attempt to use the memory exerciser sub¬ 
mitted by R. A. Smith of Digital and published in 
the June/July issucC'Basic Memory Exercising 
Programs’, RSTS Pro. June 1982. V.4. #i. p.8). I 
have found several major bugs which will prevent 
the program from performing its intended 
function. 

The basic concept of this program is good and if 
implemented correctly, it will work. However, if 
this program found any defective memory loca¬ 
tions it was due to random chance. 

The memory exerciser program is intended to 
write to, and read from, the resident library. Thus 
by moving the library around physical memory the 
program will be able to access specific physical 
memory locations, and pin-point the actual 
address at which there is a memory problem. 

It is unfortunate that the program as was pub¬ 
lished did not perform the desired function, even 
though it would give all appearances of doing so. 
Shown below are the reasons that this program will 
not work properly. I have also outlined the changes 
necessary to have the program access specific physi¬ 
cal memory locations. 

PROBLEM: The memory exerciser never accesses 
the resident library MEMCOM. As a result the 
memory in the common block MEM DAT is never 
mapped to MEMCOM and the memory that is 
exercised is wherever the program happens to be 
loaded in memory. 

SOLUTION: Force the program to access the resi¬ 
dent library. To access a resident library the pro¬ 
gram must be attached to the library, create a 
window into the library, and map that window. 
The means for accessing a resident library can be 
done in either of two ways: I. Use the task builder 
resident library directives RESLIB or RESCOM. 
When using these directives the task builder 
includes in the task image all of the necessary code 
to access the resident library. All of this is totally 
transparent to the programmer. For the memory 
exerciser program this directive would be: 

RESCOM = SY : [1,80^)MEMCOM/RW 
This directive “tells” the task builder to set things 
up so that the program will automatically attach to 
the resident library MEMCOM in account [1,80], 
and allow read/write access to the library. The 
directive also causes the task builder to map the 
common area MEM DAT to the resident library. 
See the Task Builder User’s Guide for more infor¬ 
mation on accessing resident libraries thru the task 
builder directives. 

2. Use MACRO-11 subroutines to issue the 
.PLAS directives to attach to a resident library, 
create a window, map that window and detach 
from the resident library. This method requires 
MACRO-11 subroutines because the .PLAS direc¬ 
tives are not available from Basic-Plus 2. See the 
RSTS/E System Directives Manual for more 


information on using the .PLAS directives to 
access resident libraries. 

PROBLEMS: When a program is attached to a 
resident library that library cannot be unloaded 
and loaded at a new memory location. This prob¬ 
lem occurs when using the task builder directive 
RESCOM to attach to the resident library. When 
the problem attempts to unload the resident 
library, RSTS will return error number 3, 
“?Account or device in use”. 

SOLUTION: The .PLAS monitor directives must 
be used to allow access to the resident librar>', and 
to allow the resident library to be unloaded and 
re-loaded at different memory locations. To 
accomplish this three .PLAS directives must be 
issued. 

• Attach to a Resident Library 

• Create and Map a Window 

• Detach from the Resident Library 

The first two directives must be issued AFTER 
the resident library is loaded at the correct address 
and BEFORE an attempt is made to exercise that 
memory. The third directive must be issued 
AFTER the memory has been exercised and 
BEFORE an attempt is made to unload the resi¬ 
dent library. 

Attach to a Resident Library — requires (I)the 
library name, in Rad50; and, (2) the access mode 
which will be read/write. This directive returns 
(l)an internal library ID; and, (2)the size of the 
library in 32-word blocks. 

Create and Map a Window — requires (I)the 
library ID (returned from the attach); (2) the APR 
to be used for the window; (3) window size in 32- 
word blocks; (4) offset from start of library (zero in 
this case); (5) length of window in 32-word blocks; 
and, (6)accesss flag for the window which will 
allow write access and map the window. This direc¬ 
tive returns (I)the window ID; (2)starting virtual 
address of the window; (3) the mapped length of 
the window; (4) and a status flag. 

Detach from a Resident Library — requires the 
library ID (returned from the attach). This direc¬ 
tive returns a status flag. 

Along with the above mentioned .PLAS direc¬ 
tives, the task builder must be “told” where the 
virtual address of the resident library will be so the 
common area, MEM DAT, can be located at that 
address. This address is dependent on the APR to 
be used in mapping the resident library window. 
There are 8 APR’s available to map the program in 
memory, numbered 0-7. These APR’s map 
memory in 4K-word sections. The RTS associated 
with the program will utilize the highest A PR’s, 
and the program will utilize the lowest A PR’s. 
Thus, the resident library will need to be mapped 
with an APR somewhere in the middle. The best 
APR to use is the first one available below the 
RTS. With the RSX disappearing RTS this APR 
would be A PR 7 with a virtual address of 
160000(8). With a 4K RTS such as RSX or 
BP2COM this would be APR67 with a virtual 
address of 140000(8). Refer to the PDP-11 Proces¬ 
sor Handbook for more information on APRs and 
the virtual addresses of each. 

To tell the task builder where to locate the com¬ 
mon area MEM DAT the following directive is 
used: 

VSECT = MEMDAT: 160000 

With this directive, the task builder will place the 
PSECT MEMDAT at the virtual address of 
160000(8). This virtual address will be mapped by 
APR7 and hence the residence library. 

When using the .PLAS directives and the task 
builder VSECT directive as outlined above, the 
memory exerciser program will work correctly. 

Richard W. Hill, Software Specialist 
Software Techniques, Inc., Los Alamitos, CA 


computer has more impor¬ 
tant things to do than be a 
processor for your IBM com¬ 
munications. Save valuable 
computing capacity by han¬ 
dling this interconnect work¬ 
load with a COMBOARD™. 

COMBOARD's low over¬ 
head means your DEC users 
still get quick response time 
at their terminals. Your CPU 
capacity is used for appli¬ 


cations software. 
Yet your 




coi 




data 

communications 


thruput remains high. 


COMBOARD is a 16 bit 
CPU based single board 
computer which plugs 
straight into your DEC UN¬ 
IBUS. Your COMBOARD and 
not the DEC host handles all 
the real time interrupts and 
protocol processing as¬ 
sociated with data commu¬ 
nications. 


COMBOARD models 631, 
731 and 1231 support com¬ 
munications line speeds from 
4,800 to 56K baud. They are 
the leaders in DEC/IBM and 
DEC/CDC Interconnects. 

For more details contact 
your sales representative at 
Software Results at 614 421- 
2094 or mail the coupon today. 


SOFTWARE 

RESULTS 

1229 West Third Avenue 
Columbus, OH 43212-3090 


COMBOARD^** Software Results Corporatiort 
DEC. UNIBUS^** Digital Equipment Corporation 
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Overworked 
Disks 
Making 
You Work 
Overtime? 

DSKBLD 
Restructures 
Them 
Fast! 

Fragmented disk structures 
cause excessive overhead, 
slowing system response. 
Rebuilding them with 
DSKBLD is last and easy. 

DSKBLD 

• is an extremely fast RSTS/E* disk 
to disk utility. 

• optimizes disk structures auto¬ 
matically. 

• greatly reduces File Processor 
overhead. 

• is lightning fast. 

• makes disk rebuilding a snap. 

• dramatically improves perfor¬ 
mance of diskbound systems. 

For more information, attach your 
business card to this ad and send to: 

MANUS Services Corporation 
1700 Westlake Avenue North, Seattle. 
Washington 98109, (208) 285-3260. 

European Distributor; 

DCS Dialog Computer Systeme AG. 
Maienstrasse 39, CH-8050 Zurich. 
Switzerland 

Australian Distributors; 

Victoria; Scientific Business Software 
Systems. 133 McCrae St., Bendigo, 3550, 
(054)42-4322 

W.A.; On-Line Computing, 14-16 Rowland St.. 
Subiaco, 6008, (381-3000) 

N.S.W.; Nicholson & Partners, 27 Lindfield 
Avenue. Lindfield, 2070. (02) 467-2000 


“T 

M 

1 

J 

I 

1 

r 

— 

SERVICES 

CORPORATION 


•RSTS/E is a registered trademark of Digital Equipment 
Corporation. 
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Thank you for taking the time to publish my 
articles in the June edition of RSTS Professional 
(V.4. U3. pp. 51 and 76). 

Rather than constantly sending you enhance¬ 
ments and corrections to our ‘JUMP’ program, 
would it be possible for you to mention that any 
individual interested in the new release contact me 
personally. The program would be written in PIP 
FORMAT at 1600 BPI on a tape provided by the 
interested party. 

Thank you for your assistance in this matter. 

Patrick Holmay 
Director, Computation Laboratory, 
Collegeville, Minnesota 

I really appreciated your pre-symposium semi¬ 
nar here a few weeks ago. You said you were looking 
forward to some contributions from down-under, 
so I present this modest little goodie from my 
software tool kit. Use it with care! 

Ralph Zwier, Professional Software 
Victoria, Australia 

Thank you, Ralph; 

[Readers see, PROTCT.B2S, p.20 this issue.] 

Your correspondent SPIDL ("Dear RSTS 
Man" August 1982, V.4. n4. P.36) may find some 
help in a letter of mine you published in September 
1981, (V.3, p.36). If he connects a signal from 

the lineprinter, which is set when the lineprinter is 
on, through to pins 5 and 8 of the DH11 then you 
can get the spooler to detect the lineprinter being 
turned off and spooling will be inhibited until the 
machine is turned on next day. 

George May 
Software Sciences Limited 
Farnborough, Hampshire 

Thanx for the excellent magazine; it proves to be 
an indispensable resource. I have a suggestion for 


software vendors. Seeing as most of the ones we 
deal with either subscribe to and/or contribute to 
the magazine, I am presenting it here; 

We have purchased a number of software pro¬ 
ducts advertized in the ‘Pro’, and implemented 
some of the monitor enhancements and utilities 
from the articles. As a result, we have encountered 
a problem that is more likely to occur as more 
non-DEC products are put into use; conflicting 
control-characters. I would like to suggest to those 
offering software which uses control characters, 
that provisions be made for users to select what 
character should be used at installation time. This 
should result in quite a few additional benefits to 
both vendors and purchasers, along the lines of 
reduced maintenance, returned products, addi¬ 
tional distribution, etc. 

I. cseh 

Alcan Canada Products Ltd. 

Kingston, Ontario Canada 

Good idea. Vendors! 

Only as I was building my house this summer did 
I find out what was TECO TESTED ... A sheet of 
4 X COX Plywood! 

What a stumper... Hope I’m not too late to win 
the booby prize or something. 

Jim Perkins, Sr. Analyst 
Underhill, Vermont 
Jint, the TECO test ended in our last issue (August 
1982, V.4, 114). However, it's never too late for 
Honorable Mention, and so for the record — 
you're right. ^ 


LETTERS to the 
RSTS Pro ... 

... is your column! Send us your comments, 
suggestions, photos, or notes of interest to the 
RSTS community. We’d enjoy hearing from you. 
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SIMlNi 

A SIMULATION MINI COMPUTER 

By John Cato 


In the last issue of RSTS Professional, I presented the first part of the SIMINI user guide — the index, 
introduction and specification. In this issue I present the second part — how to use SIMINI. 

Following on from the user guide, as such, is inciuded a few example programs as demonstrated within the 
complementary simulation MINSIM. 

The next issue will contain Part 3, the source listings of SIMINI and MINSIM. 

If you would like a complete copy of the SIMINI user guide, please send a self addressed sticky label and 
£3.75, or $7.50US, to cover photocopying and postage to me: John Cato, R.T.Z. Computer Services Ltd., P.O. Box 
19, 1, Redcliff Street, Bristoi BS99 7JS, England. 

Any thoughts or comments on SIMINI will also be welcomed. 

1. Introduction (See last issue, August 1982, V.4, #4, p.71) 

2. Specification of SIMINI (See last issue, August 1982, V.4, #4, p.71) 


3. How to use SIMINI 

i. LOG INTO THE HOST COMPUTER 

ii. TVpe "RUN SIMINI" 

iii. At "PRINT SPEED FACTOR" 
enter a decimal no. 

The number input wili slow down the printing of the registers during 

program execution, the higher the number, the slower the registers will 

be printed. 

iv. At "?" prompt you are now in communication with SIMINI. You 
may issue an Operating System command (2.2) or input a program 
instruction to be assembied (2.3.2 and Appendix B. 1/2/3). If you 
receive an Operating System or Assembler message not familiar 
or self explanatory then refer to Appendix A. 

V. Example. 


Response 

Action 

Ready 

Run SIMINI 

PRINT SPEED FACTOR? 

0/S MODE 

1200 

? 

000 RACC 

? 

001 ST0 010 

? 

002 RACC 

7 

003 ADD 010 

7 

004 PACC 

7 

005 JANZ 000 

7 

RUN MODE 

RUN 

7 

4 

7 

5 

9 

4 

7 

-4 


0 

0/S MODE 
? 
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DEC 

SYSTEMS 

& 

COMPONENTS 

C.D. SMITH & 
ASSOCIATES, INC. 
12605 E. Freeway, 
Suite 318 

Houston, TX 77015 
(713) 578-8464 
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APPENDIX A 

OPERATING SYSTEM 


SYNTAX ERROR 

1. Invalid/not octal store address 

2. No space after store address 

3. Literal incorrect length 

4. No closing quotes 

5. Invalid mnemonic 

6. No space after a mnemonic in a M.R.I. 

7. Invalid, not octal, or not a digit address 

8. Char following address not "X" or "I” 

9. 2nd Char following Address not ”1” 

10. Command too long 

11. yEryb NNNNNN incorrect no of octal digits 
APPENDIX B1 


Memory Referencing Instructions 



Op Code 

Mnemonic 

Description 


0/S Mode 

01 

LDA 

A = M 



02 

STO 

M = A 


INVALID RUN COMMAND 

03 

ADD 

A = A + M 

V,c 

INVALID SAVE COMMAND 

04 

SUB 

A = A - M 

v,c 

INVALID UNSAVE COMMAND 

05 

MUL 

A = A X M 

v,c 

XXXXXX IS NOT A VALID COMMAND 

06 

DIV 

A = A -r M : 

R,V,C 


07 

AND 

A = A AND M 


XXXXXX SIM SUCCESSFULLY SAVED 

10 

OR 

A = A OR M 


XXXXXX SIM SUCCESSFULLY LOADED 

11 

XOR 

A = A XOR M 


XXXXXX SIM SUCCESSFULLY APPPENDED 

12 

JMP 

PC = M 


CAN'T FIND FILE OR ACCOUNT 

13 

JANZ 

PC = M if A not zero 



14 

JALZ 

PC = M if A less zero 


NO FILE SPECIFIED 

15 

INCH 

M = M+1 : PC = PC + 1 if M = 

zero 

XXXXXX.SIM - Catalogue 

16 

JSR 

S = PC : PC = M 


I/O TO DETACHED KEYBOARD 

17 

CAHE 

PC = PC + 1 if A = M 


ILLEGAL NUMBER 

20 

LDX 

X = M 


NNNN IS NOT AN OCTAL NUMBER 

21 

STOX 

M = X 



22 

LDPC 

PC = M 



22 

STPC 

M = PC 


Run Mode* 

24 

JAP 

PC = M if A > zero 


STACK EMPTY 

25 

JAZ 

PC = M if A = zero 


CAN'T RETURN FROM SUBROUTINE 

26 

JXNZ 

PC = M if X not zero 



27 

JXLZ 

PC= M if X less zero 


INVALID INSTRUCTION CODE 

30 

JXP 

PC = M if X > zero 


ATTEMPT TO DIVIDE BY ZERO 

31 

JXZ 

PC = M if X = zero 


RUN TERMINATED 

32 

JOV 

PC = M if OV set 



33 

JNOV 

PC = M if OV clear 


* All these errors will cause 

34 

JSI 

IR= M and re-execute 


a return to Executive mode. 

35 

CXHE 

PC = PC + 1 if X = M 
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APPENDIX B2 APPENDIX B3 


Register 

Instructions 





Op Code 

Mnemonic 

Description 



Library Subroutine Calls 

00 


STOP 

Return control to operating system 

Assembler 

01 


CLA 

A » 0 



Mnemonic 

02 


INC 

A . A + 1 




03 


DEC 

A = A - 1 



PACC Print the accumulator as a decimal integer, 

04 


ADDS 

S(t-l) = S(-*-l) + S : SP = 

SP-1 

V.C 

preceeded by one space or - sign and followed 

05 


SUBS 

S(+l) = S(-^l) - S : SP = 

SP*^1 

v.c 

by a space. 

06 


SWAB 

Swap bytes on A 




07 


HOP 

PC ,PC + 1 



RACC Prompt the user with a ? and read a signed decimal 

10 


HOPE 

PC =PC + 1 if A » 0 



integer from the keyboard, terminated by a C/R. 

11 


HOPN 

PC »PC + 1 if A 0 




12 


HOPL 

PC =PC 1 if A < 0 



PSTR Takes the words following the instruction as data 

13 


HOPG 

PC .PC 1 if A > 0 



character string terminated by a & character. 

14 


NOT 

A s A 



Prints the string of characters and hand the 

15 


NEC 

A > -A 



controls back to the word after the location 

16 


INCX 

X = X 1 



containing &. 

17 


DECX 

X = X - 1 




20 


SWAX 

X = A : A = X 



RSTR Prompt the user with a ? and read 2 bytes 

21 


SWAR 

R » A : A s R 



terminated by a CP. from the keyboard and place 

22 


ASL 

Arithmetic shift left 1 

bit 

V 

in the accumulator. 

23 


ASR 

Arithmetic shift right 1 

bit 

V,C 


24 


ROR 

Rotate right 1 bit 


V 

NLIN Causes the cursor to be moved to the next line, left 

25 


ROL 

Rotate left 1 bit 


V 

hand side and that line to be cleared. 

26 


CLV 

V» 0 




27 


SEV 

V » 1 




30 


HOPV 

PC » PC + 1 if V * 1 



APPENDIX B4 

31 


CLC 

C - 0 




32 


SEC 

C * 1 



Operating System Commands 

33 


HOPC 

PC« PC + 1 if C - 1 




34 


CCV 

c,v«o 



RUN NNN Begin program execution at address 

35 


SCV 

C,V»1 



NNN (default 0) 

36 


SWAP 

SP= A : A »SP 




37 


PUSH 

S = A : SP » SP -1 



DUM NNN-NNN nn Dump specified memory on KBNN. 

40 


POP 

A = S : SP - SP + 1 



Default all to user KB. 

41 


RTS 

PC« S : SP = SP + 1 




42 


MULS 

S(-*-l) - S(+l)xS : SP= SP 

+ 1 

V.C 

SAV xxxxxx Save program xxxxxx 

43 


DIVS 

S(+l) =S(+l)-rS : S^» SP 

+ 1 

R, V, C 


44 


PACC 

Print accumulator 



OLD xxxxxx Load program xxxxxx 

45 


RACC 

Receive integer in accumulator 


46 


PSTR 

Print string 



APP xxxxxx Append program xxxxxx 

47 


RSTR 

Receive 2 byte string 




50 


NLIN 

Move cursor to next line 

' and 

clear 

UNS xxxxxx Unsave program xxxxxx 

Notes 





CAT Catalogue saved programs 

M 


Contents of address 




S 


Stack (SP) 




BYE Return control to host machine 

V 

= 

Overflow 





PC 


Program counter 




NNN xxxxxxxx Load memory with instruction or data 

c 

= 

Carry 





A 


Accumulator 




RUNT NNN As RUN but with trace option. 

X 

= 

Index Register 




(MINSIM only). 

R 

= 

Remainder Register 




Note: All NNN address locations are specified In octal. 


Word 

Processing * 


VAX/VMS, RSTS/E, 
RSX-11M 

*Word*11 by 

Data Processing Design, Inc. 

181 W. Orangethorp Avenue 
Placentia, CA 92670 


On Track Systems Provides: 




Sales 

Service 

Installation 

Demonstrations 

Training 

Consulting 


Atyour 
convenience! 

At your 
office! 


On Trsck 
Systems, Inc. 

P.O. Box 24S 
Ambler, PA 19002-024 
(218) 842-7133 
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APPE?n)IX C 


REFERENCES 


1. A.U.C.B.E. Hertfordshire 
Beginners Mini Computer 
April 1977 - Bill Tagg 


2. MACRO-11 Programming Manual 


3. PLAN Programming Manual 


4. Intel-8080 Microprocessor Handbook 


5. Electronic Data Processing - Emery 


6. Z80 CPU Architecture and instruction set 


RUN MINSIM 
0/S MODE 

Would you like a comniand su«iimara(Y or N)*? N 
7 OLD MEANl 

MEANl.SIM SUCCESSFULLY LOADED. 

DUM 

PROGRAM MEANl.SIM 
ADDRESS CONTENTS 


OCTAL 

DECIMAL 

CHAR 

BINARY 

ASSEMBLER 

000 

2303 


OOOOlOOOllllllll 

LDA 377 

001 

3 


0000000000000011 

DEC 

002 

24704 

/ X / 

0110000010000000 

JALZ 200 

003 

rf 


0000000000000010 

INC 

004 

13 


0000000000001101 

NEG 

005 

4350 


0001000011111110 

STO 376 

006 

1 


0000000000000001 

CLA 

007 

16 


0000000000010000 

SWAX 

010 

3328 


0000110100000000 

LDA 400X 

Oil 

26878 


0110100011111110 

INCH 376 

012 

20544 

'P0' 

0101000001000000 

JMP 100 

013 

12543 

'0 ' 

0011000011111111 

DIO 377 

014 

28864 

' 

0111000011000000 

JSR 300 

100 

14 

' ' 

0000000000001110 

INCX 

101 

7424 

' ' 

0001110100000000 

ADD 400X 

102 

20489 

'F ' 

0101000000001001 

JMP oil 

200 

38 

' i' 

0000000000100110 

PSTR 

201 

20047 

'NO' 

0100111001001111 

XOR 117X1 

202 

8265 

' I' 

0010000001001001 

SUB 111 

203 

21573 

'TE' 

0101010001000101 

JMP 105X 

204 

19795 

'MS' 

0100110101010011 

XOR 523X 

205 

8265 

' I' 

0010000001001001 

SUB 111 

206 

20000 

'N ' 

0100111000100000 

XOR 040X1 

207 

19529 

'LI' 

0100110001001001 

XOR 11IX 

210 

21332 

'ST' 

0101001101010100 

JMP 5241 

211 

11814 

' .i' 

0010111000100110 

MUL 046X1 

212 

20493 

'F ' 

0101000000001101 

JMP 015 

300 

38 

' i' 

0000000000100110 

PSTR 

301 

21576 

'TH' 

0101010001001000 

JMP IlOX 

302 

17696 

'E ' 

0100010100100000 

OR 440X 

303 

19781 

'ME' 

0100110101000101 

XOR 505X 

304 

16718 

'AN' 

0100000101001110 

OR 516 

305 

8265 

' I' 

0010000001001001 

SUB 111 

306 

21286 

'Si' 

0101001100100110 

JMP 4461 

307 

36 

' t' 

0000000000100100 

PACC 

310 

38 

' i' 

0000000000100110 

PSTR 

311 

16718 

'AN' 

0100000101001110 

OR 516 

312 

17446 

'Di' 

0100010000100110 

OR 046X 

313 

17 

' ' 

0000000000010001 

SWAR 

314 

36 

' $' 

0000000000100100 

PACC 

315 

38 

' i' 

0000000000100110 

PSTR 

316 

12070 

'/t' 

0010111100100110 

MUL 446X1 

317 

2303 

' ' 

OOOOlOOOllllllll 

LDA 377 

320 

36 

' $' 

0000000000100100 

PACC 

321 

33 

' ! ' 

0000000000100001 

RTS 

STACK POINTER 

512 





BYE 

Control IS beins passed from SIMINI to RSTS/E 
You mas now issue ans RSTS command 

Reads 


RUN MINSIM 
0/S MODE 

Would sou like a command summars(Y or N) N 
'' OLD SORTl 

SORTl.SIM SUCCESSFULLY LOADED. 

DUM 

PROGRAM SORTl.SIM 
ADDRESS CONTENTS 


OCTAL 

DECIMAL 

CHAR 

BINARY 

ASSEMBLER 

000 

28736 

' 0' 

0111000001000000 

JSR 100 

001 

2302 

' ' 

0000100011111110 

LDA 376 

002 

n 

' 

0000000000000010 

INC 

003 

4350 

' ' 

0001000011111110 

STO 376 

004 

4349 

' 

OOOlOOOOllllllOl 

STO 375 

005 

1 

' 

0000000000000001 

CLA 

006 

4348 


0001000011111100 

STO 374 

007 

16 

' ' 

0000000000010000 

SWAX 

010 

3328 

' ' 

0000110100000000 

LDA 400X 

Oil 

9473 

'% ' 

0010010100000001 

SUB 401X 

012 

10 

' ' 

0000000000001010 

HOPL 

013 

28800 

' ' 

0111000010000000 

JSR 200 

014 

14 

' ' 

0000000000001110 

INCX 

015 

26877 

' ' 

0110100011111101 

INCH 375 

016 

20488 

'P ' 

0101000000001000 

JMP 010 

017 

1 

' ' 

0000000000000001 

CLA 

020 

30972 

' ' 

0111100011111100 

CAHE 374 

021 

20481 

'P ' 

0101000000000001 

JMP 001 

022 

28864 

' 

0111000011000000 

JSR 300 

100 

2303 

' ' 

OOOOlOOOllllllll 

LDA 377 

101 

13 

' ' 

0000000000001101 

NEG 

102 

4350 

' ' 

0001000011111110 

STO 376 

103 

33 

' ! ' 

0000000000100001 

RTS 

200 

3328 

' ' 

0000110100000000 

LDA 400X 

201 

4347 

' ' 

0001000011111011 

STO 373 

202 

3329 

' ' 

0000110100000001 

LDA 401X 

203 

5376 

' ' 

0001010100000000 

STO 400X 

204 

2299 

' ' 

0000100011111011 

LDA 373 

205 

5377 

' ' 

0001010100000001 

STO 401X 

206 

2302 


0000100011111110 

LDA 376 

207 

n 

' 

0000000000000010 

INC 

210 

4348 

' ' 

0001000011111100 

STO 374 

211 

33 

' ! ' 

0000000000100001 

RTS 

300 

1 


0000000000000001 

CLA 

301 

16 

' ' 

0000000000010000 

SWAX 

302 

28736 

' 0' 

0111000001000000 

JSR 100 

303 

3328 

' 

0000110100000000 

LDA 400X 

304 

36 

' $' 

0000000000100100 

PACC 

305 

14 

' ' 

0000000000001110 

INCX 

306 

26878 

' ' 

0110100011111110 

INCH 376 

307 

20675 

'F ' 

0101000011000011 

JMP 303 

310 33 ' !' 0000000000100001 

STACK POINTER 512 

BYE 

Control is beins passed from SIMINI to RSTS/E 

You may now issue any RSTS command 

Ready 

RTS 


RUN MINSIM 

0/S MODE 





Would you like 

a command summary(Y or N)? N 


? OLD MEANl 





MEANl.SIM SUCCESSFULLY 

LOADED. 



? APP SRTDAT 





SRTDAT.SIM SUCCESSFULLY 

APPENDED. 



? DUM 377-777 
PROGRAM MEANl. 

SIM 




ADDRESS 

CONTENTS 




OCTAL 

DECIMAL 

CHAR 

BINARY 

ASSEMBLER 

377 

9 


0000000000001001 

HORN 

400 

9 

' ' 

0000000000001001 

HORN 

401 

3 

' 

0000000000000011 

DEC 

402 

4 

' 

0000000000000100 

ADDS 

403 

1 

' ' 

0000000000000001 

CLA 

404 

n 

' ' 

0000000000000010 

INC 

405 

6 

' ' 

0000000000000110 

SWAB 

406 

5 

' ' 

0000000000000101 

SUBS 

407 

n 

' 

0000000000000010 

INC 

410 

3 

' 

0000000000000011 

DEC 

STACK POINTER 

512 





T* RUN 

THE MEAN IS 3 AND 8/9 0/S MODE 
OLD SORTl 

SORTl.SIM SUCCESSFULLY LOADED. 

APP SRTDAT 

5RTDAT.SIM SUCCESSFULLY APPENDED. 


Qg Send your articles of interest to the RSTS community 
Q to the RSTS Professional on mag tape in either RNO, 
gg PIP or WORD-11 format. Eighty percent of this issue 
^ was transmitted via tele-conrimunications from 
author s mag tapes to phototypesetting equipment 
^ and was not retyped. 


^ RUN 

122334569 0/S MODE 
BYE 

Control is beina passed from SIMINI to RSTS/E 
You may now issue any RSTS command 

Ready 


RUN NINSIM 
Q/S MODE 

Would you liKe a commarid summar^CY or N 

OLD NFACT 

npact.sim successfully loaded. 

DUM 

program NFact.SIM 
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AHriRESS 

OCTAL 

000 

001 

002 

003 

OOA 

005 

006 

007 

on 

012 

013 

014 

015 

016 

017 

020 

021 


CONTENTS 

DECIMAL 

37 

4120 

28681 

38 

20001 

8253 

8230 

36 

30743 

20492 

20498 

8215 

14 

5144 

28681 

15 

11288 

33 

1 

512 


022 

027 

STACK POINTER 
RUNT 


CHAR 

X 


BINARY 

0000000000100101 

0001000000011000 

0111000000001001 

0000000000100110 

0100111000100001 

0010000000111101 

0010000000100110 

0000000000100100 

0111100000010111 

0101000000001100 

0101000000010010 

0010000000010111 

0000000000001110 

0001010000011000 

0111000000001001 

0000000000001111 

0010110000011000 

0000000000100001 

0000000000000001 


ASSEMBLER 
RACC 
STO 030 
JSR on 
PSTR 

XOR 041X1 
SUB 075 
SUB 046 
PACC 

CAHE 027 
JMP 014 
JMP 022 
SUB 027 
INCX 

STO 030X 
JSR on 
DECX 

MUL 030X 

RTS 

CLA 


INSTRUCTION ACC MAR MDR C(MAR) 


PC X SP C(SP) R VC 


000 RACC 
001 STO 030 
002 JSR on 
on CAHE 027 
012 JMP 014 
014 SUB 027 
015 INCX 
016 STO 030X 

017 JSR on 
on CAHE 027 
012 JMP 014 
014 SUB 027 
015 INCX 
016 STO 030X 
017 JSR on 
on CAHE 027 
013 JMP 022 
022 RTS 
020 DECX 
021 MUL 030X 


000003 000 000045 000045 000000 
000003 030 000003 000003 000046 
000003 777 000003 000003 000046 
000003 027 000001 000001 010030 
000003 012 050014 050014 000000 
000002 027 177777 000001 010030 
000002 015 000016 000016 012030 
000002 031 000002 000002 070011 
000002 776 000020 000020 000017 
000002 027 000001 000001 010030 
000002 012 050014 050014 000000 
000001 027 177777 000001 010030 
000001 015 000016 000016 012030 
000001 032 000001 000001 010030 
000001 775 000020 000020 000017 
000001 027 000001 000001 010030 
000001 013 050022 050022 000000 
000001 775 000020 000020 000017 
000001 020 000017 000017 070011 
000002 031 000002 000002 070011 


001 000000 1000 000000 000000 0 0 

002 000000 1000 000000 000000 0 0 

on 000000 0777 000003 000000 0 0 

012 000000 0777 000003 000000 0 0 

014 000000 0777 000003 000000 0 0 

015 000000 0777 000003 000000 0 0 

016 000001 0777 000003 000000 0 0 

017 000001 0777 000003 000000 0 0 

on 000001 0776 000020 000000 0 0 

012 000001 0776 000020 000000 0 0 

014 000001 0776 000020 000000 0 0 

015 000001 0776 000020 000000 0 0 

016 000002 0776 000020 000000 0 0 

017 000002 0776 000020 000000 0 0 

on 000002 0775 000020 000000 0 0 

013 000002 0775 000020 000000 0 0 

022 000002 0775 000020 000000 0 0 

020 000002 0776 000020 000000 0 0 

021 000001 0776 000020 000000 0 0 

022 000001 0776 000020 000000 0 0 


INSTRUCTION ACC MAR MDR C(MAR) I PC X SP C(SP) R VC 


022 RTS 000002 776 000020 000020 000017 020 OOCOOl 0777 000003 000000 0 0 

020 DECX 000002 020 000017 000017 070011 021 000000 0777 000003 000000 0 0 

021 MUL 030X 000006 030 000003 000003 000046 022 000000 0777 000003 000000 0 0 

022 RTS 000006 777 000003 000003 000046 003 000000 1000 000000 000000 0 0 

N! ■ 003 PSTR 000006 003 000046 000046 000000 007 000000 1000 000000 000000 0 0 
6 007 PACC 000006 007 000044 000044 000000 010 000000 1000 000000 000000 0 0 

0/S MODE 
BYE 

Control IS t>eina passed from SIMINI to RSTS/E 
You ma^ now issue anw RSTS command 


Having completed the SIMINI user guide as a complete 
document. I will now give some simple examples, as used 
within the complimentary simulation MINSIM, to illustrate 
further what may be done. 

Firstly, the program MEAN 1 .SIM which takes a list of n 
values and calculates the mean. The number of values, n, is 
contained in location =400. For ease of use I have stored 
the list as a separate file named SRTDAT.SIM on backing 
store - note there is no effective difference between data 
and programs in this context. The data is subsequently 
appended to the program prior to execution. In the 
educational sphere, tutors may use this technique to allow 
students' programming exercises to be proved out on the 
tutors' own definitive set of test data. 

The second example is S0RT1 .SIM which is a simple 
bubble sort routine. It operates on data to the same 
conventions as MEAN1. Listings are included of both these 
programs followed by an example run of them. 

The third example is NFACT.SIM which calculates N 
factorial. Points of interest in this example are the use of 
the stack in subroutine calling, which incidentally is 
recursive in this case, and the use of the Trace option on 
running. 

Further examination of these programs will, I hope, 
lead to the subsequent development of your own ideas 
(e.g., what to do if the sum of the list supplied to MEAN1 is 
greater than 32767?) and new programming exercises 
such as the use of linked lists, tree searching, boolean logic 
testers ... etc. 

I wish you many hours of interest and fun. 



The electronic spreadsheet 
with financial modeling 
capability is available now 
on VAX/VMS 
and PDP-11/RSTS/E 

Call today for a free brochure 
and dial-up demonstration. 
(206) 881-2331 


SYSTQVIf INCCMRPOIW^ 

1^902 Redttjond WA 98052 U.SA 

IfeC ts a registered tra^m^t of Digital CorfXjration 

bfCSlCALCl is ^trad^^rk of WHY S^rr%4fi^corporated. 
___._ 
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DEC VT100-VT52 TERMINAL 
EMULATION FOR THE IBM PC 


The finest personal computer now emulates the 
finest computer terminal! The Vri00-VT52 is a 
fully-featured ANSI compatible terminal. Whether 
you are timesharing to a DEC host or simply need 
a superb ASCII terminal emulator for your PC, 
Saturn’s VT100-VT52 emulator is for you. 

• 15 communication speeds to 9600 baud 

• User-friendly set-up mode 

• Selectable XON-XOFF protocol 

• Blink, bright, reverse-video and underline attributes 

• Split screen, bidirectional scrolling 

• Direct connect or by modem 

• Full VT100 keyboard emulation 

• Print screen, copy to printer and print through mode 

• Full screen reverse video 

• Written in assembler for maximum efficiency 

And many other features that make this the finest and most 
easily used terminal emulator available. 
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FURTHER FEEDBACK 

By Paul O'Nolan, Petroconsultants, Ltd., Dublin, Ireland 


In the June issue of RSTSI discussed a proposed startup 
command file that provided a superset of EDT commands. 
In this article I’d like to expand on that just a little, correct a 
few minor errors, and look at using and teaching EDT the 
VAX environment. 

First, corrections: 

1. The TD (tab decrement) in the insert ruler command: 

GOLD_is redundant and should be deleted. 

2. The final line of the macro APP (for copying to the 
end of the PASTE buffer) should end with a full stop 
— returns one to the right place in the MAIN buffer. 
A fifth line: INSERT = APP 50; may be added if the 
direction set will always be forward when the com¬ 
mand is used — returns to the line the command 
was issued on. 

3. One inconsistency: CTRL/F is a preassigned function, 
(though 1 never use it); I suggest changing the key 
definition assignment to CTRL/G, — go forward 20 
lines! 

Finally, the last line of the first page (P 68) should not 
have been justified! 


ENTRY OF A PL/I PROGRAM STUB 

On the subject of PL/1, here's a command that 1 use 
quite often especially when starting a new program and 
working top down, enter a procedure name, then type GOLD 
CTRL/D and get a ready made stub, eg: 

DEMONSTRATION: PROCEDURE; 

_ = cursor 

END DEMONSTRATION; 

The key definition is: 

DEF K GOLD CONT D AS 

"ADV -W DW UNDW EL I: PROCEDURE;<CR> <CR>END“Z UNDW EL I;"Z BACK EL ADV." 

Since the GOLD CTRL key sequences cannot be used in 
autorepeat mode they are well suited to this type of occa¬ 
sional use. 

UNDERLINING 

On Diablo printers the <ESC> E 8i <ESC> R key se¬ 
quences switch the auto underline facility on & off respec¬ 
tively. GOLD CTRL/U defined below will insert the escape se¬ 
quences at the beginning and end of a line. 

DEF K GOLD CONT U AS ''(+C BL KESOE EL KESOR BL V).» 


INDENTING 

CTRL/V, as seen, copies a word from the line above and 
is useful for indenting. Ideally one should not use tabs, al¬ 
ternatively the default word delimiters should be redefined 
excluding the tab character. In some circumstances one's in¬ 
dented margins differ regularly by a given number of 
spaces, or a multiple thereof. For example, consider the 
following PL/I code’: 


Alternatively, macros may be used to toggle the definition 
of GOLD CTRL/U between inserting <ESC>E and 
< ESC> R, allowing the underlining of individual words and 
groups of words as required. 

DEFINE MACRO UON 

INSERT=UON 10;INSERT <ESC>E“Z 

INSERTrUON 20;DEF K GOLD CONT U AS "EXT UOFF." 

DEFINE MACRO UOFF; 

INSERTrUOFF 10;INSERT <ESC>R^Z 
INSERTrUOFF 20;DEF K GOLD U AS "EXT UON." 


<- spaces ->DO WHILE (condition); 

IF (condition) THEN; 
statement; 

ELSE CALL procedure; 

IF (condition) THEN 
DO; 

CALL procedure; 

CALL procedure; 

IF (condition) THEN statement; 

ELSE 
DO; 

statement; 
statement; 

END; 

END; 

END; 

[G] = GOLD key, “ = CTRL 


Definition: DEF K GOLD CONT U AS "EXT UON." 

Next a couple of items on David Spencer's wish list (RSTS 
April). First a 'view all' mode, to distinguish between spaces 
and tabs. 


VIEW ALL’ MODE 

The following macro does the job: 

DEFINE MACRO TAB 
INSERTrTAB 10;CLEAR TABSHOW 
INSERT=TAB 20;COPY SELECT TO=TABSHOW 
INSERT=TAB 30;FIND=TABSHOW 
INSERTzTAB 40;SUBSTITUTE/ /<tab> 


Indented using: 
[G]-V 

[crv 

LcrB 

-V 

[G]~V 

[G]“V 

-V 

“V 

-V 

[crv 

[G]'‘V 

-V 

[G]-B 

index finger! 


CTRL/V defined as before. 

GOLD CTRL/V = CTRL/V & insert 3 spaces. 

GOLD CTRL/B = (TTRL/V & delete (rubout) 3 spaces. 

The new key definitions are: 


DEF K GOLD CONT V AS "(ADV -V DW UNDW V UNDW I “Z)." 

DEF K GOLD CONT B AS "(ADV -V DW UNDW V UNDW -3C)." 

Of course, the DO WHILE above could be indented by 
any number of spaces, and be part of a larger block of in¬ 
dented code. Furthermore, the final and penultimate END; 
statements could best be entered immediately after the ap¬ 
propriate DO: , using CTRL/V to indent, and subsequently 
opening a line to continue. 


and it may be activated using GOLD CTRL/T via the follow¬ 
ing definition: 

DEF GOLD CONT T AS "EXT TAB." 

The macro copies a selected range to a buffer and 
substitutes the character string " < tab > " for each tab, and 
the buffer is displayed. The command may be used for in¬ 
spection only, or the tabs may be edited out and the original 
select range replaced using the GOLD R command, as 
follows: 

1. type GOLD M — return to the main buffer 

2. reselect text range 

3. type GOLD R, then enter the buffer name.- TABSHOW 
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Of course, it’s only a pseudo view all’ mode, but that's bet¬ 
ter than none. 


ON THE VAX: (Some DCL procedures) 

Next, a way of remembering the last file edited. This is 
a command procedure for the VAX. To edit a file using this 
procedure {EDT.COM beiow) type: 

$ ED [filename] 

where filename is optional & defaults to the last file edited if 
not specified. The procedure uses a temporary file EDIT.TMP 
to store the name of the last file edited. This file, the com¬ 
mand file, and the EDTINI.EDT startup file may all be kept in 
a subdirectory and used throughout the account — provided 
adequate file specification is used in LOGIN.COM and 
EDT.COM. 

EDT.COM 

$! DCL Procedure to automatically 'remember' last file edited 

$! 

$ ON ERROR THEN CONTINUE 

$ SET MESSAGE/NOSEVERITY/NOFACILITY/NOIDENTIFICATION/NOTEXT 

$ IF PI .NES. "" THEN GOTO NEWFILE 

$ OPEN/READ LAST EDIT.TMP ! Get last file edited 

$ READ LAST EDITFILE 

$ CLOSE LAST 

$ GOTO OLDFILE 

SNEWFILE: 

$ EDITFILE := 'PI' 

$ DELETE/NOLOG EDIT.TMP;* 

$ OPEN/WRITE UST EDIT.TMP 

$ WRITE LAST EDITFILE ! Save file name 

$ aOSE LAST 

$OLDFILE: 

$ CLEAR ! Clears screen, see below 

$ TYPE EDIT.TMP 

$ SET PROTECTION = (S:RWED,G:RWED,0:RWED,W:RWED) 'EDITFILE' 

$ ASSIGN/USER SYS$COMMAND SYS$INPUT 

$ EDIT/EDT/COMMAND:[PAULUS.SUB]EDTINI.EDT 'EDITFILE' 

$ SET PROTECTION = (S^RWE,G:RWE,0:RWE,W:RWE) 'EDITFILE' 

$ SET MESSAGE/TEXT 

The following command synonyms are useful to have defin¬ 
ed in one's LOGIN file: 

$ ED :=r #EDT 
$ DBK :== DELETE EDTFIL.BAK;* 

$ TYE :== TYPE EDIT.TMP ! What was the last file I edited ? 

$ CL*EAN:== @CLEAN ! See below 

$ KILL :== @KILL ! " 

The following are useful definitions to have in the system 
symbol table.- 


USER.COM 


$ PR1 ;== SET PROTECTION = (S:RWED,0:RWE,G:RWE,W:RWE) ! Delete protect 

$ PRO :== SET PROTECTION = (S:HWED,0:RWED,G:RWED,W:RWED) ! Unprotect 

$ CLS[0,7] == 21 ! <ESC> 

$ CLS[8,7] == 72 ! H 
$ CLS[16,7] == 27 ! <ESC> 

$ CLS[24,7] == 74 ! J 

$ CLEAR :== WRITE SYS$OUTPUT CLS ! Clears screen 


Another handy little procedure is: CLEAN.COM. for tidying 
up files. Used as follows; e.g.: 

$ CLEAN TEST.FOR 


CLEAN.COM 

$ IF PI .EOS. "" THEN PI := "*.*" ! See definitions of PRO & PR1 above 

$ PRO 'PI';* 

$ PURGE 'PI' 

$ RENAME/LOG 'PI';* 'P1';1 

$ IF P2 .NES. "/NP" THEN PR1 'P1';1 ! Enable deletion ? 

This procedure deprotects, purges, renames and then pro¬ 
tects. Deprotection is required to avoid renaming resulting 
in ancestral files with higher version numbers than the most 
recent version. The /NP switch of the CLEAN command is 


Dreaming of 

Electronic Mail 

Product Name: Dreams Version 5.0 

Since its first sale in 1979 Dreams has grown in capability 
and user acceptance. It is now in use on over 40 RSTS/E 
systems around the country. 

Special Features: 

• DECnet compatibility—message transmission to distant 
nodes. Includes message queuing to unavailable nodes. 

• Invoke your favorite style of editing (EDT, DECword, 
WORD-11, TECO, etc.) with a smooth transition to and 
from the editor. 

• Flexible method for accessing and maintaining multiple 
mail files. 

• Subjects for mall files as well as Individual messages. 

• Retract unread messages. 

• Recover your last deleted message. 

• Specify times as well as dates in relative or absolute 
form to control message appearance or expiration or to 
narrow selection criteria. 

• Full compatibility with Batch. This opens up a world of 
possibilities for keeping abreast of unattended opera¬ 
tions and for implementation of a repetitive reminder 
system based on day of the week or other longer Inter¬ 
vals. 

• System manager may assign defaults for accounts, proj¬ 
ects, and the entire system including the assignment of 
certain privileges. 

The Dreams package consists of over 40,000 lines of 
source code in more than 70 modules plus significant 
documentation both as documents and as on-line help. 
CSPCOM or BASIC-Plus-2 builds these sources into only 
5 Dreams tasks: TELL, MAIL, WHO, SMASH, and MAN¬ 
AGE (plus POSTMN for the DECnet version). Computers 
with sufficient memory may use the customized resident 
library and resident run-time system. 

A VAX version will be available later. 

Typical Electronic Mail Features are also included in 

Dreams: 

• Send to names, nicknames, or groups. 

• Scan, reply, forward, or store for later appearance. 

• New, old, priority, or suppressed messages for each 
mail file. 

• Automatic routing of messages. 

• Many other convenient features. 

Ordering information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU 
discount schedule: 

First License 

Dreams/5 $3000.00 

DECnet modules $3000.00 

Second and Third License 40% Discount 

Fourth and Fifth License 50% Discount 

Sixth and up 70% Discount 

Educational Institutions Additional 50% 

off the total 

Maintenance and new releases: Annual fee of 12% of cur¬ 
rent list price after the first year. 


For more information contact: 

Tom Burtnett 
DCXX Software Services 
Dickinson College 
Computer Center 
Carlisle, PA 17013 
717-245-1513 


RSTS/E, VAX, DECnet, and DECword are trademarks of Digital Equip¬ 
ment Corporation. 

WORD-11 is a trademark of Data Processing Design, Inc. 
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SOFTWARE 

PROFESSIONALS 

TANO CORPORATION is committed to bringing creativity 
and ingenuity to its productgs which include the 
industry’s most sophisticated marine and industrial 
supervisory control and data acquisition systems. Our 
continued expansion offers new opportunities to Soft¬ 
ware Professionals. 

OPERATIONS ADMINISTRATOR — Re 

sponsible for overall operations of department and effec¬ 
tive interface with users. Candidates must possess 
computer-related degree, VAX/VMS or RSTS/E operating 
systems proficiency and management experience. 

DESIGN PROGRAMMERS — Prepare 

system design and software specifications for new 
systems. Candidate must possess computer-related 
degree, minimum one year experience with RSTS/E or 
VAX/VMS operating systems and BASIC -i- and/or BASIC 
-h II or VMS. VAX Basic. 

TANO CORPORATION offers an excellent compensation 
and benefit package Including 100% company paid 
medical insurance, incentive plan and pension trust. 
Please submit confidential resume to: 

Personnel Recruitment Department 

VHO. 

TANO CORPORATION 

4301 Poche Court West 


No Agencies Please 



New Orleans, LA 70129 

Equal Opportunity Employer M/F/H 
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DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSIS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including: 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 



October 1982 

ALRjrSPROFESSIONALRSTSPROFESSIONALRSrSPROFESSIONALflSTSPROFESSIONALRSrSPROFESSIONALRSTSP 


useful when working in other less privileged accounts. Note: 
using EDT.COM above, the latest version is automatically 
protected against deletion. 

KILL.COM 

KILL.COM 

$ IF PI .EQS. THEN GOTO REFUSE ! Prevents a nasty accident 

$ PRO 'PI* 

$ DELETE/LOG 'PT 

$ EXIT ! Will also exit on privelege violation 

$ REFUSE: 

$ WRITE SYS$0UTPUT ”$ %DCL-W-TUTTUT, Don't be silly" 

The above procedure is useful for deleting ail files of 
any generic specification (with the exception of *. *; *, which 
is not allowed), whether or not they are protected: test pro¬ 
grams, etc. Should be used with care, and preferably only 
after a DELETE command has failed. 

TEACHING EDT 

If your system can take the load, the increased produc¬ 
tivity of programmers using EDT should be advantageous. 
Certainly, once learned it will not willingly be forsaken for 
anything less. DEC’S EDTCAI package has some disadvan¬ 
tages: It requires a VT100 and a lot of patience. There is lit¬ 
tle or no disadvantage in learning EDT on a foreign’ ter¬ 
minal. as it’s easy to find one’s way around a DEC keyboard, 
especially with the help of an accurate keypad diagram! A 
yellow and a green sticker on the GOLD and HELP keys 
respectively is helpful. 

The following command procedure, again for the VAX, 
provides a simple alternative. In this installation it’s the 
LOGIN command file of an account called EDTHELP. This 
facility and ’the monkey see monkey do school of editing’ 
has now converted most editor using colleagues to EDT. This 
procedure uses a number of files of filename type 
EDTn.LRN, where n = the number of the lesson. The 
EDTINI.EDT file in this account merely sets screen mode. 

EDTLRN.COM 


EDTLRN.COM 

$! DCL Command procedure to instruct in the rudiments of EDT. Get started! 

$! 

$END = 10 ! Number of lessons available 
$CLEAR 

$C0PY/N0L0G SYS$INPUT SYS$OUTPUT 

INTRODUCTION TO EDT: 

Required: A Lear Siegler ADM 31 terminal and a map of 
the keypad. 

This command file will present a number of introduc¬ 
tory sessions with EDT. Most consist of a little over one 
screen in content, and you may exit when you feel that 
you’ve had enough. 

$ INQUIRE COUNT "Conmence with lesson number" 

$ IF COUNT .GE. 1 .AND. COUNT .LE. END THEN GOTO LOOP 

$ WRITE SYS$OUTPUT " " 

$ WRITE SYS$OUTPUT "Defaulting to lesson number 1" 

$ COUNT = 1 

SLOOP: 

$ ASSIGN/USER_MODE SYSSCOfflAND SYSSINPUT 

$ EDIT/EDT/READONLY EDT'COUNT'.LRN;1 

$ IF COUNT .EQ. END THEN GOTO FINISH 

$ CLEAR 

$ INQUIRE ENOUGH "Next lesson [Y/N]" 

$ IF ENOUGH .NES. "Y" THEN GOTO FINISH 

$ COUNT = COUNT + 1 

$ GOTO LOOP 

SFINISH: 

$ LOGOUT 


CIRCLE 42 ON READER CARD 


The following are the first 3 EDT* .LRN files, for illustration: 
EDT1.LRN 
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INTRODUCTION 


PIONEER COMMAND 


EOT is a full screen keypad editor. Function keys are the 
numeric keypad keys. Text is entered by typing using the 
keyboard. 

There are 2 ways of leaving EOT. First type CTRL/Z 
then either QUIT or EXIT QUIT does not save your edits. EXIT 
creates a new file incorporating changes. While using this 
course you should always use QUIT. 

There is a HELP key available while using EOT. however 
there are some slight differences between the positions of 
the keys on a VT52 and the ADM 31. and the latter does not 
have a backspace key. 

To overcome this a diagram of the ADM 31 keypad is 
available interactively should you require it. This is accessed 
by typing the GOLD key followed by H (the GOLD key is im¬ 
mediately to the right of the BREAK key on the top line of 
keys). Use GOLD H to get back to your text. 

Try using GOLD H to get to the keypad diagram and 
back again. Next quit this lesson by typing CTRL/Z followed 
by QUIT. 

EDT2.LRN 

Pin the key map on the wall behind your terminal for 
reference, and you are ready to begin. First memorize the 
position of the following keys: (refer to map) 

GOLD HELP DELETE LINE 
next find the cursor moving keys, marked with arrows. 

Move the cursor to the start of the line after this one. 
NOW DELETE THIS LINE. USING THE DELETE LINE KEY. 

Now undelete that line by typing GOLD followed by 
DELETE LINE (do not hold both keys down together) 

OK Now you can delete & undelete lines. Note that to 
copy a line you can delete it. and then undelete 2 or more 
times. 


.Try it with this 


line 




Similarly you can move a line by deleting it. moving the 
cursor to where you wish the line to go. and then undeleting 
the line. 

(line is inserted before the cursor position) now QUIT 

EDT3.LRN 

There are ways of moving around the screen and up 
and down in the file other than by using the arrows. 

• Move the cursor so that it is over the asterisk (left) using 
the down arrow. 

Now type the keypad 2. followed by CTRL/H 
That is how to get to the beginning & end of a line re¬ 
spectively 

Now type the keypad 0 until the cursor is over the ^ 
on the next line. 

** Fine, this key allows you move up and down a line at a 
time. 

To move UP type [5] and then type [0] a few times. 

To move DOWN again type [4] and then [0] until you get 
back to where you want. 

TOP: To get to the top of the file type [G] [5] [G] = GOLD 

BOTTOM: To get to the bottom of the file type [G] [4] 


A COMPREHENSIVE MANAGEMENT SYSTEM FOR 
MANUFACTURERS AND DISTRIBUTORS 
Comprising: 

★ Sales Order Processing 

★ Accounts Receivable 

★ Purchase Order Processing 

★ Accounts Payable 

★ General Ledger 

★ Inventory Control 

★ Bill of Material Processor 

Designed for Timeshare and Turnkey installations on PDF 11 
RSTS Computers 

Based on the NCCS USER 11 Data Management Systems 
Installations in 

UK, USA, Australia and New Zealand 
Local Dealers wanted Worldwide 


★ Material Requirements Planning 

* Production Control 
—Works Order Processing & 

Job Costing 
—Routings 

—Work Centre Loading 


Pkmeer 



COMPUTER 

SYSTEMS 

LIMITED 


4 Albion Place 
Northampton NNl lUD UK. 

Tel: Northampton (0604) 39096 


CIRCLE 149 ON READER CARD 


WHY PAY MORE 
for DEC? 

Lower Your Cost Of Ownership 
With Our 300 LPM Printer For 
Your PDP-8, PDP-11 and VAX 

Contact the quiet guys who deliver 
132 or 80 column tractor-feed 
printer systems starting at ... 

Nationwide service from 
Teietype Corporation i 

starting at $36/month 

Many installations assure 
compatibility equal or better 
than LP-11 printers costing 
much more. 

IMMEDIATE DELIVERY 

1-800-327-3955 

If ff _ 

network data communications (305) 624-1644 

INNOVATIVE ELECTRONICS, INC. 

4714 N.W. 165th Street, Miami. FL 33014 




CIRCLE 155 ON READER CARD 
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BACdis®© can do it all! 


BAC into RTS /BAC into MAC / BAC into BAS 








BACmac is a unique software tool, running 
under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTl 1 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RTl 1, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Western Distributor: 

Telecom Computer Systems, Inc. 
P.O. Box 03285 
Portland, Oregon 97203 
503/286-5122 


H nnOI Advanced Digital 
MUUOl Office Systems 


Eastern Distributor: 

New England Micro Technology, Inc. 
P.O. Box 767 

Marblehead, Mass. 01945 
617/631^005 


CIRCLE 138 ON READER CARD 


Now you can do the following: 

1. Delete, undelete, copy and move lines. 

2. Use the arrowed keys, [0], [2] and CTRL/H to move 
around the screen. 

3. Get to the top and bottom of the file. 

Now QUIT 

TIPS ON USING EDT: 

1. Try to do your editing at the end of a buffer, where 
possible, to minimize whole screen updates. Typing 
beyond the end of a line, unintentionally, on a full 
screen can cause a lot of unnecessary 1/0 (unless 
TRUNCATE is set). 

2. If you are worried about the availability of disk space 
as you are about to leave EDT, use the QUIT/SAVE 
command to save your edits in the journal file, and 
then reapply them later using the /RECOVER facili¬ 
ty. Regular use of the CLEAN command (see above) 
will keep your directories uncluttered. 

3. Make a backup of your edits at suitable intervals. 
‘Suitable' depends on a number of criteria, mainly: 

a) how often your machine goes down 

b) the size of the file you’re editing 

c) how much you’ve done since you last exited or 
backed up 

EDT provides the facility — use it! 


A COMMON ERROR 

Incomplete specification of redefined key for use with a 
repeat count: 

The CTRL/K command is used to redefine keys interac¬ 
tively. The HELP & PAGE keys should be redefined first, as 
they will require only one keystroke to be used, and their 
original functions will hardly be missed. 

Example: 

Required: To delete the 14th through 19th characters 
on every line in a file. 

CTRL/K 

Press the key you wish to define [HELP] 

Now enter the definition: 

(-H13C 6DC L). < enter > 

The parentheses define the command as a single opera¬ 
tion. and the full stop will cause it to be executed im¬ 
mediately the key is pressed, without having to type 
<enter> to terminate the command. It’s always a good 
idea to test key redefinitions before letting them loose with 
a repeat count, so having verified that the definition func¬ 
tions correctly, proceed with the edit: 

GOLD n [HELP] n = repeat count > lines in file 

An error commonly made is to omit the parentheses, 
which in this case would cause the + 13C operation to be 
repeated ’n’ times before 6 characters were deleted and the 
remainder of the command executed. ^ 
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RASCAL.BAS 

By W. Franklin Mitchell, Jr., Computer Operations Supervisor 
Erskine College, Due West, South Carolina 29639 

Be sure you know the introductory material in Volumes 
I — IX of the RASCAL documentation. Pay particular atten¬ 
tion to sections K — Q of Chapter 38, pages 852-1.921. You 
should memorize the material in Volumes XII — XIV. The in¬ 
formation in Volumes XXI — XXXIV will not be needed until 
next week. 

<pause> 


Note: 

The RASCAL "compiler” performs 256 passes on your 
source code. This turns the source code of your program into 
compact pseudo-code. For example, after one pass, the fol¬ 
lowing program requires 1.042 blocks of storage for the 
pseudo-code. After the 256th pass, the pseudo-code needs 
only 168 blocks. Here is the program: 

START//® 

ASSIGN THE VALUE ' 2 ’ TO THE VARIABLE :A://@ 

ASSIGN THE VALUE " 2 " TO THE VARIABLE iB;//® 

ACCUMULATE THE SUM OF THE VARIABLE :A: AND THE VARIABLE :B://® 
REVEAL ACCUMULATED SUM//® 

STOP//® 

Qurr//® 

END//® 

<pause> 

Note also that since the RASCAL run-time system takes 
26K words, user programs must not exceed 4K words. This 
can be easily accomplished by using no more than four 
variables in any one program. Programs over 8 or 9 lines 
usually do not compile anyway. 

<pause> 

RASCAL requires a new disk directory structure and 
must DELETE all disk files currently in your account. Please 
wait... 

<end> 

(4,91 RASCAL.BAS 

1000 EXTEND 

! April Fool l-Apr-82 F. Mitchell COMPILE <232> 

! 

I Set log-in mesage to "DON'T RUN dev:lp,pnJRASCALl" on 1-Apr-yy 

1 

1 Put RASCAL.BAC<232> and RASCAL.TXT<60> in the same account. 

1002 ! *************************************************************** 

! Copyright (c) 1982 by Erskine College, Due West, South Carolina 

I *************************************************************** 

! This program may be copied only with the inclusion of the above 

i copyright notice. E'skine College assumes no responsibility for 

1 the use or reliability of this software. 

1004! Send comments and/or bug reports to: 

! 

! W. Franklin Mitchell, Jr. 

! Computer Operations Supervisor 

! Erskine College 

! Box 86 

! Due West, SC 29639 

1010 DIM M%(30%), R%(30%) 

\ CHANGE SyS(CHR$(12%)) TO Ml 

\ HOME.ACCTS « CHR$(Ml(23%)) * CHR$(Ml(241)) * NUMl$(Ml(251)) 

♦ ":I" + NUM1$(MI(6I) ) + NUM1$ (Ml (51) ) + "1" 

\ DROP.PRIVS - CHR$(6I) + CHR$(-21l) + CHR$(255l) 

\ GAIN.PRIV$ - CHR$(6I) + CHR$(-21I) + CHR$(0l) 

\ PPNI - PEEK( PEEK( PEEK(520l) 81 ) -F 241 ) 

\ ACCT$ - • I" + NUM1$(SWAPI(PPNI) AND 2551) 

+ + NUM1$(PPNI AND 2551) + "1" 

\ FIP.CALL5 « SyS( DROP.PRIVS ) 

1020 RANDOMIZE 

\ ON ERROR GOTO 1310 

\ TRAP.CTRL.es - CHRS(6I) + CHRS(-7I) 

\ FIP.CALLS - SyS( TRAP.CTRL.es ) 

\ CR.LFS - CHRS(13I) * CHRS(IOI) 

\ BELLS - CHRS(7I) 

\ NULS « ■" 

\ CLEAR.SCREENS » CHRS(155l) + "H" + CHRS(155|) ♦ "J" 

\ PRINT CLEAR.SCREENS 



CIRCLE 11 ON READER CARD 
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RSTS SITE MANAGEMENT AND APPLICATION DEVELOPMENT TOOLS 


□ M/APS 

a menu/authorization processor and application security system 
that controls user access to menus and applications programs. 
Uses DEC'S VT series CRTs. 

□ VT100 ACCOUNTING CALCULATOR 

a multi-function calculator designed for users of DEC'S VT100 
CRTs. Options and features beyond the capabilities of the 
normal Accountant's calculator. 

□ SOURCE/FILE CROSS-REFERENCE (XREF) 

XREF provides cross-reference listings which detail the relation¬ 
ship between source files, callable routines, data files and task 
Images. 


□ KEYBOARD MASTER 

a system support tool that allows the system support manager to 
monitor, interact or take control of an interactive session. 

□ STANDARD SUBROUTINE LIBRARY 

callable macro-11 routines that perform screen and terminal I/O, 
cursor positioning and many other necessary program functions, 
including data conversions. 

□ ENCRYPTION ROUTINES 

a site security feature which encodes ASCII characters and can 
be incorporated into any application where sensitive data is 
processed. Also exists as a stand alone program for encoding and 
decoding entire files. 

McHugh, Freeman & Associates, Inc. 

1135 Legion Drive 
Elm Grove, Wisconsin 53122 
(414) 784-8250 


□ APC 

an automatic password changer that creates meaningful six- 
character passwords and updates the ACCT.SYS file, allows 
selective changing of passwords and produces three informative 
reports. 

CIRCLE 57 ON READER CARD 


1030 LOGGING! « -1% 

\ SUCKERS! - -Il.SlSUCKER.VIR/CLtB- 

\ OKS m"*** Bait takers ***" + CR.LFS 

1 Set LOGGING! to 0! if logging is not desired 

I 

I SUCKERSS is the log file spec. 


1150 READYS - CR.LFS + CR.LFS + "Ready" + CR.LFS 
\ PRINT iKB!, RIGHT( READYS, 3!) 

\ SLEEP 2! 

\ PRINT IKB!, "Chaining to RASCAL system. Please wait..."; BELLS 

\ GOTO 1200 IF NOT LOGGING! 

\ TRY! - 0! 

\ WRITE.ACCESS! - 1024! 


1040 RASCALS ■ HOME.ACCTS + "RASCAL.TXT" 

\ FIP.CALLS - SYS( GAIN.PRIVS ) 

\ IN! - 1! 

\ OPEN RASCALS FOR INPUT AS FILE IN!, MODE 8192! 

\ FIP.CALLS » SYS( DROP.PRIVS ) 

\ OPEN "kLuSER.IN" for INPUT AS FILE KB!, MODE 1! 

1 Open keyboard for binary mode input 

1050 INPUT LINE IIN!, INFOS 

1060 GOTO 1080 IF LEFT(INFOS,7!) <> "<pau8e>" 

\ PRINT IKB! 

\ PRINT •KB!, "Hit any key for more —> "; 

\ GET IKB! 

1070 PRINT IKB!, CLEAR.SCREENS 

\ GOTO 1050 

1080 GOTO 1100 IF LEFT(INFOS,5!) - "<end>" 

1090 PRINT IKB!, INFOS; 

\ GOTO 1050 

1100 CLOSE IN! 

\ PRINT IKB! 


1110 

\ 

\ 

\ 

\ 

\ 

\ 

1 

I 


M!(0!) - 30! 

M!(l!) - 6! 

M!(2!) - 15! 

SLEEP 4! 

PRINT IKB!, "PIP *.*/DE/WO/W" 
M!{Z!) - 0! FOR Z! - 3! TO 30! 
FIP.CALLS » SYS( GAIN.PRIVS ) 


Directory look up on index (FIP 15) 


1120 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 


CHANGE M! TO MS 
CHANGE SYS(MS) TO R! 

FIP.CALLS » SYS( DROP.PRIVS ) 

DIR! - DIR! * 1! 

M!(3!) « DIR! 

M!(4!) « SWAP!(DIR!) 

FILE.SIZE! » R!(13!) ♦ SWAP!(R!(14!)) 

FILE.SIZE! » 32767! IF FILE.SIZE! < 0! 

LARGE.FILE! « R!(16!) 

IF LARGE.FILE! 

THEN 

PAUSE! « 5! 

ELSE 

IF FILE.SIZE! < 128! 

THEN 

PAUSE! >1! 

IF FILE.SIZE! < 256! 

THEN 

PAUSE! « 2! 

IF FILE.SIZE! < 512! 
THEN 

PAUSE! « 3! 

ELSE 

PAUSE! >= 4! 


1160 FIP.CALLS » SYS( GAIN.PRIVS ) 

\ OPEN SUCKERSS AS FILE 1! 

\ S! ■ STATUS 

\ FIP.CALLS - SYS( DROP.PRIVS ) 

\ IF (S! AND WRITE.ACCESS!) <> 0! 

THEN 

CLOSE 1! 

\ SLEEP 1! 

\ TRY! - TRY! ♦ 1! 

\ IP TRY! <- 7! 

THEN 

1160 

ELSE 

1190 

1170 DIM •!!, N!(0!), WHOSdOO!) « 32! 

\ N! - N!(0!) 

\ IF WHOS(0!) <> OKS 

WHOS(0!) - OKS 

\ WHOS(Z!) » NULS FOR Z! « 1! TO 100! 

\ N!, N!(0!) - 1! 

1180 WHOS(N!) * TIMES(0!) ♦ ACCTS ♦ CR.LFS IF N!(0!) <- 100! 

\ N!(0!) > N!(0!) * 1! 

1190 CLOSE 1! 

1 

1 Add victim to sucker list 

1200 SLEEP 4! 

1210 PRINT IKB! 

\ PRINT IKB!, "RASCAL VO.0-00 "; TIMES(0!); " - "; DATES(0!) 

\ PRINT IKB! 

\ PRINT IKB!, "RASCAL password: "; 

\ GET iKB! 

1220 CLOSE KB! 

\ PRINT 

\ PRINT 

\ PRINT "?Invalid RASCAL entry." 

\ PRINT 

\ PRINT "7RASCAL system lost - not sorry."; 

\ PRINT READYS 

\ OPEN "KBrUSER.IN" FOR INPUT AS FILE KB! 

1230 INPUT LINE tKB!, USER.INS 

1240 USER.INS - CVTSS(USER.INS,38!) 

\ GOTO 1230 IF LEN(USER.INS) = 0! 

\ SLEEP 2! 

\ IF INSTRd! , "CAT.CATALOGUE", USER. INS) <> 0! 

THEN 

PRINT RIGHT( REAI 'S, 3! ) 

\ GOTO 1290 

1250 IF LEFT(USER.INS,2!) » "DI" 

THEN 

PRINT "?Directory of SY;"; 

\ PRINT CVTSS(ACCTS,2!); " is empty"; READYS 

\ GOTO 1290 

1260 IF LEFT(USER.INS,2!) <> "PI" 

THEN 

PRINT "?What?"; READYS 
\ GOTO 1290 


1130 SLEEP PAUSE! 

\ PRINT •KD!, RAD$(R!(7!)-»^SWAP!(R!(8!))) ; RADS (R! ( 9! ) ♦SWAP! (R! (10!) ) ) ; 

\ PRINT IKB!, RADS(R!(11!)♦SWAP!(R!(12!))); " erased and deleted" 

\ GOTO 1120 

1140 NO.FILESS - "!No files matching ??????.???" 

\ IF DIR! • 0! 

THEN 

SLEEP 3! 

\ PRINT IKB!, NO.FILESS 


1270 PIP! » 0! 

\ IF INSTRd!, USER. INS, "/L") » 0! AND INSTRd!, USER. INS, "/DI") » 0! 

THEN 

PRINT "*"; 

\ INPUT LINE IKB!, USER.INS 

\ PIP! » -1! 

1280 PRINT NO.FILESS; 

\ PRINT CR.LFS; "*'‘Z"; IF PIP! 

\ PRINT READYS 

1290 SLEEP 16! 
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1300 CLOSE KB% 

\ PRINT CLEAR.SCREENS; BELLS 

\ PRINT 

\ SPOT% - 27% 

\ PRINT TAB(SPOT!); "1-1" 

\ PRINT TAB(SPOT%); "1 APRIL FOOLl" 

\ PRINT TAB(SPOT%); "1-1" 


\ CANCEL.ALL.TYPE.AHEADS « SYS(CHRS(11%)} 

\ EXIT.AND.CLEAR.PROGRAMS » SYS(CHRS(9%)) 

\ GOTO 32767 

1310 PIP.CALLS - SYS{ TRAP.CTRL.CS ) 

\ CANCEL.CTRL.OS « SYS(CHRS(0%)) 

\ CANCEL.ALL.TYPE.AHEADS » SYS(CHRS(11%)) 

\ RESUME 1100 IF ERR - 11% AND ERL ■ 1050% 

\ RESUME 1300 IF ERR « 28% OR ERR » 11% AND ERL >» 1290% 

\ RESUME 0 IF ERR > 28% OR ERR - 11% 

\ RESUME 1140 IF ERR > 5% AND ERL - 1120% 

\ RESUME 1190 IF ERL « 1160% 

\ IF ERR > 2% AND ERL - 1040% 

THEN 

PRINT "TRASCAL must be RUN." 

\ GOTO 32767 

1320 FIP.CALLS » SYS( DROP.PRIVS ) 

\ ON ERROR GOTO 0 

32767 END 


SHORT 

BUT 

USEFUL 
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PDP-n 

SPSS® makes data analysis simple for DEC 
PDP-11 users! Now PDP-11 users can enjoy all the 
benefits that have made SPSS the world's largest 
selling Data Analysis System. It's easy to use and 
learn, thanks to its response to English language 
commands and comprehensive documentation. 
It's also sophisticated, giving researchers and 
business managers alike a full range of capabili¬ 
ties for statistical analysis and report generation. 

For full information, call or write SPSS today: 
Sue Phelan, SPSS, Inc., 444 N. Michigan Avenue, 
Chicago, IL 60611, 312/329-2400. 



© Copyright 1981 SPSS, Inc. ANALYSIS 

MADE SIMPLE 


SPSS-7J runs on DEC LSI-11 through PDP-11/70. Compatible with DEC Systems RSTS, 
RT-11. RSX-11M, IAS/Bell Labs UNIX/S&H Computer Systems TSX. 
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Likos 

ACCOUNTING TWO* 


Financial Software for RSTS / E 

General Ledger Accounts Receivable 

Accounts Payable Installed and proven in Canada 
and the USA. 

Flexible reporting structure and formatting 

System adapts to the end user 

Table driven software 
Changes made easily 

Multi-level accounting 

Allows varying methods of branch and company consolidation 

Menu selection 

Easy to use 

Fully documented 

Easy to learn 

Rental plan also available 

Conserve your capital budget 



For your Management Overview phone, write, or circle the reader card 



6080 Young Street 
Suite 401 

Halifax. Nova Scotia 
B3K 5L2 


Contact: G. Patrick Hunt Director of Marketing (902)453-4620 


* Proprietary Product of IAS Computer Corporation Limited 
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DEGRADING 

YOUR 

RSTS/E 

SYSTEM 


By PHRED 


Yes Virginia, there is a Macro Man! 

Call 

MACRO MAN 

for superior performance 

• RSTS Internals • 

• Custom Macro Programming • 

• RSTS or 11M • 


LEARN MACRO FROM THE MASTER! 
Seminars available — call for details. 

MACRO UTILITY LIBRARY 
Available now — call for information. 

Also Available Now — 

VAX MACRO Consulting 


RSTS/E 

MACRO PROGRAMMING COURSE 
To Be Given 

November 8 — November 12 
in 

Philadelphia 


Bob 'Macro Man’ Meyer 
9 Lockwood Avenue. Fieldsboro. NJ 08S05 
609-298-9127 

GRCLE 84 ON READER CARO 


ABSTRACT 

When, in the course of computing events, it becomes 
necessary to convince management of the need to acquire new 
hardware, many users and software people have found it very 
useful to tune their RSTS/E systems in strange and unusual 
ways. This paper will discuss some of the more effective ways 
to bring your system to a grinding halt, particulary by using 
features that are available with RSTS/E version 7.0 (7.1 and 
7.2 included). 


The Disk Sub-System 

The disk sub-system of RSTS/E is probably the most 
fruitful area of endeavor for the fertile imagination. Though 
some recommendations have been discussed in various publi¬ 
cations to improve the performance of the RSTS/E disk sub¬ 
system. they have never been explained in a way which would 
allow the system manager to be sure that he was getting the 
worst performance possible. 

A very important area of study is the use of public versus 
private disks. Wherever possible, the use of private disks 
should be discouraged. One should take full advantage of the 
time required to search the directories of all the disks in the 
public structure when performing file lookups. While one or 
two private disks might not greatly affect the performance of a 
large system, every little bit helps. 

Seldom used files should be explicitly placed and positioned 
on the system disk. These files should preferably be placed at 
the front of the directory and made contiguous in the center 
of the largest free contiguous space on the disk. This will help 
to ensure that the longest directory search possible will be 
required when opening, creating, looking for. or deleting a file, 
as well as making contiguous space a scarce resource. Conver¬ 
sely. often used files should be placed at the end of the device 
list. The last disk drive of your public disk structure (in order 
listed by SYSTAT) is an ideal place for files that must be 
accessed by many users on your system. 

Create and use the smallest number of accounts as is 
possible. Ideally, all file creation and deletion should occur in 
the system account (account [1.2]) or in the library account 
(account [1.1]). Since this is rarely practical due to security 
problems, one could compromise by placing the large, fre¬ 
quently extended files in [1.1]. as many of the system and 
language related files as possible in [ 1.2]. and all the users files 
in their own directories. 

If you must use many accounts then try to put as many 
files as possible in [1.1] or[1.2]. And. by all means, put every 
program possible in the system or library accounts with the 
least-frequently used programs at the front of the directory. If 
you do not care to re-create your system directories to accomp¬ 
lish this, then you can use the appropriate OPEN mode to place 
the file at the "front" of the directory. Temporary files should 
always be created at the "front” of an accounts directory. 

Avoid the use of random access files. It is always better to 
read ordered files sequentially, creating a new copy of the file 
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on each pass through the file. If a file will be extended in the 
course of normal operation, avoid pre-allocating the disk 
space required, as this usually significantly reduces the time 
required to extend the file during production. On the other 
hand, all files which \will never change should be extended to at 
least twice the required size, to allow for future growth. 

Disk Caching 

An important feature of RSTS/E version 7.0 is the user 
data caching. While this feature is designed to enhance sys¬ 
tem performance, careful abuse can make file-processing 
worse than has been possible on previous major releases of 
RSTS/E. A good rule of thumb is to cache all random files 
sequentially, and sequential files randomly. It is also exceed¬ 
ingly important that you make your cache clustersize at least 
twice the pack cluster size of your most frequently used disk. 
This will help the cache be filled with data it will probably never 
use. These suggestions are even even more effective if XBUF 
is kept very small. 


Memory Allocation 

Proper abuse of available memory is essential for system 
degradation, and may even be more effective on some sys¬ 
tems than abuse of the disk sub-system. The following sug¬ 
gestions emphasize the reduction of memory available for 
user Jobs, an essential consideration in creating bottle-necks. 

XBUF is the means by which Small Buffers are saved and 
directory and data caching is implemented. A properly sized 
and placed XBUF can aid in crippling a system. If your system 
uses disk and data caching or uses the SEND/RECEIVE system 
service, then the XBUF file should be no more than 8KW. 
However, if your ^stem does not use these services then 
XBUF should be allocated to take up at least 30% of the 
available system memory. 

Run-Time System should always be loaded with the 
"/STAY” when possible. The only requirement imposed by 
RSTS/E is that there be one contiguous region of memory 
large enough to accomomdate the largest possible user job. It 
is exceedingly wasteful to allow more than one job to reside in 
core if it can be avoided. 

If your system is too small to accommodate all possible 
Run-Time Systems, select the least used Run-Time System to 
be permanently resident. It is highly desirable for the user 
jobs to compete with Run-Time Systems for available space in 
memory. 

Permanently-resident Run-Time Systems should not be 
loaded contiguously in memory. An initial guess would be that 
3KW to 8KW of free memory should appear between each 
Run-Time System. This should help to keep the memory man¬ 
ager busier than might otherwise be possible. 

If you have too much memory, filling it with Run-Time 
Systems. Resident Libraries (new feature as of version 7.0) 
should help. It is relatively easy to create Resident Libraries, 
and useless routines can be effectively combined to occupy 


memory space that might otherwise go wasted as user job 
space. The same care should be used in placing Resident 
Libraries as was used in placing Run-Time Systems. 

When placing XBUF. Resident Libraries, or Run-Time Sys¬ 
tems, one should always begin about 5KW above the MONI¬ 
TOR. This allows the memory management routine to search 
through the greatest amount of memory before allocating 
space. 

The feature patch "First Fit” is another excellent way to 
keep the memory boggled. Whenever there is less than 
128KW of memory on a system the patch should always be 
installed. Conversely, whenever there is more than 512KW of 
memory, it should never be installed. Systems with memory 
between 128KW and 512KW may need to experiment with it 
before making a decision on using this patch. 


Going from RSTS/E to VAX/VMS? 

M1GRAID3 

can help get you there. 

MIGRAIDS,^ USERS WITH A RSTS/E 
DISK PACK MOUNTED AS A 
“FOREIGN” VOLUME UNDER VMS CAN 


•TRANSFER RMS-11 FILES 
DIRECTLY TO VMS, READY 
TO USE 

• COPY ASCII STREAM FILES 
DIRECTLY TO RMS-32 SEOUENTIAU 
VARIABLE FORMAT 

• TRANSFER VIRTUAL ARRAYS 
AND BLOCK I/O FILES, READY 

TO OPEN ORGANIZATION VIRTUAL 


MIGRAID3 SUPPORTS RSTS/E WILD¬ 
CARDS FOR BULK COPIES, AND 
OFFERS A COMPREHENSIVE DIREC¬ 
TORY FACILITY TOO! 

$800 (U.S.) Single-CPU license; 

QDA/OEM terms available. 



COMPUTER METHODS CORPORATION 

P.O. BOX 592 
MOORESTOWN, NJ 08057 
(609) 778-8440 


RSTS and VAX/VMS are registered trademarks of Digital Equipment Corporation. 
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Daily Operations 

It is essential to understand the correct use of the so- 
called ‘utility’ programs, or CUSPs. These tools can be used 
in seemingly innocent ways to make life on your system a 
disaster. 

The BACKUP 
package, of course, 
is your biggest prob¬ 
lem. It was designed 
to create copies of 
your ^stem that 
can be used if some 
catastrophic error 
causes you to lose 
one or more files. 

Aside from being 
very carefully de¬ 
signed to recover 
from bad blocks, 

BACKUP attempts 
to optimize your 
directory structure 
when it restores 
files. While this may 
be insignificant on 
some systems, it is 
rumored that there 
are systems where 
a complete BACKUP 
and RESTORE of the 
public disk structure 
has greatly increas¬ 
ed system through¬ 
put. (If that is your 
goal, this document 
is not for you any¬ 
way.) The following 
suggestions should 
help you keep your 
system running 
even more poorly. 

Instead of using 
the BACKUP pack¬ 
age. use the COPY 
program that was 
used during SYS- 
GEN (after all. if it’s 
good enough for 
SYSGEN. then it’s 
good enough for 
production). When 
at all possible, backup should be performed during pro¬ 
duction. This increases the probability of incomplete backup 
volumes and degraded performance. COPY is singularly sus¬ 
ceptible to bad blocks on disks: a well-timed bad block will 
allow you to go screaming to your management, crying that 
you must have another computer to back up your current 
system. This procedure is common in government agencies: 
and it usually works. 


Never install patches that are described in the RSTS/E 
Software Dispatch. These patches are intended strictly to 
improve the performance of your RSTS/E system and will be 
of little help to you. True, you may lose days, weeks, or even 
months of work from a bug that should have been corrected 
nine months ago, but what better reason to ask for more 

money (for a new 
computer)? 


Miscellaneous 

Here are a few 
miscellaneous tips 
for continued per¬ 
formance degrada¬ 
tion: 

• Run as much 
in batch 
mode as pos¬ 
sible. 

• New Files 
First direc¬ 
tory structure 
on the system 
disk. 

• Use (or at 
least create) 
as many 
CCL’s as 
possible. 

• Have a ter¬ 
minal contin¬ 
uously run¬ 
ning VT50PY 
(at XO). 

• Set all termi¬ 
nals to the 
highest baud 
rate possible. 

• Always use 
DIRECT, not 
PIP/LI, for 
directory 
searches. 

SYSGEN as few small buffers as possible. 

SYSTEM the system with the statistics gathering option. 

This one feature can use as much as 12% overhead. 

Only create one swap file, and create it twice as large 
as needed. Or create a second swapfile on the slowest 
or the busiest disk. ^ 



GOOD NEWS 
FOR SCHOOLS 


FINAR Introduces 
A New Educational Discount: 

100% OFF 

LIST PRICE 


FINAR - The financial modeling language that is used by hundreds 
of commercial enterprises around the world is now available to 
universities, colleges, and other educational institutions. 

• Your finance office can use it for budgeting, cash flow 
forecasting, and other accounting tasks. 

• Your business school can give students experience with 
a state of the art financial modeling system. 

• Your professors can use it to do research and consultancy. 

HERE IS OUR OFFER: 

FINAR is normally sold for $18,500.00 to commercial enterprises. These 
firms also pay an annual fee of 10% for maintenance and support of the 
product. We will provide your school with the software for free. Your 
school, on an annual basis, will pay only the $1,850 maintenance fee 
normally charged to our commercial accounts. 

If your school has a PDP-11/RSTS or VAX/VMS computer system and 
you want to take us up on this offer call or write: 


James B. Hotze & Co. 



3303 South Rice Avenue, Suite 208 
Houston, Texas 77066 
(713) 960-0848 


CIRCLE 51 ON READER CARD 
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DEXPO™ WEST 82 

EXHIBITOR LIST 

^Products to be exhibited in 
distributor/agent booth 


COMPANY BOOTH NO. 

ACC 622 

Able Computer 302 

Access Technology 2009 

Adac Corporation 427 

Advanced Computer Systems 119 

Advanced Data Management 205 

Advanced Electronics Design, Inc. 706 

Amcor Computer Corp. 605 

American Computer Group, Inc. 202 

Ampex Corporation 428 

Anadex Inc. 418 

Andromeda Systems, Inc. 103 

Applied Information Systems, Inc. 601 

Aviv Corporation 229-231 

Glenn A. Barber & Assoc., Inc. 821 

Basic Electronic Distributors 1005-1007 
Basic Information Systems 1006 

Battelle 625 

Braegen MPD 712 

Britton-Lee, Inc. 405 

Busology 632 

CSPI 925 

Cambex Corporation 232 

Care Information Systems, Inc. 425 

Charles River Data Systems, Inc. 126 

Clyde Digital Systems, Inc. 517 

Comdesign 422 

Compumart Corp. 312 

Compu-Share, Inc. 306 

Computer & Terminal Exchange 620 

Computer Hotline 111 

Computer Intelligence Corp. 228 

Computer Marketing Assoc. 2007 

Computer Parts Exchange 412 

Computer Systems Corp. 431 

Computerworld 726-728 

Computers-R-Digital Monthly 426 

Compu-Tome/Discom 327 

Condor, Inc. 1008 

Cortex Corp. 430 

Corvus 1001 

DEC Professional 512 

Data Processing Design, Inc. 402 

Data Sources 226 

Data Systems Design 806 

Datamation 905 

Datanex, Inc. 528 

Dataram Corporation 106 

Digital Communications Assoc. Inc. 906 
Digital Engineering, Inc. 627-629 

Digital Information Systems Corp. 705 

Digital Management Group Ltd. 121 

Digital Technology Inc. 117 

Distributed Logic Corp. 525-527 

EEC Systems 305 

Emulex Corporation 717 

Evans Griffiths & Hart, Inc. 505 

Everest Electronic Equipment, Inc. 318 

*Falco Data Systems 1005-1007 

The Fasbe Group 107 

Finar Systems Ltd. 831 

Gejac Inc. 221 

General Digital Industries 731 

General Robotics Corp. 421 

Grant Technology 2001 

Group III Electronics 612 


Hardcopy Magazine 802 

Henco, Inc. 518 

Hinditron Offshore Software Services 225 

J.B. Hotze & Company 831 

Info Graphics, Inc. 113 

Information & Systems Research, Inc. 701 

Information Products Systems, Inc. 526 

Infosphere, Inc. 330 

Intelligent Industrial Systems, Inc. 822 

Intelligent Systems Corp. 904 

Interactive Information Systems, Inc. 529 

Interactive Management Systems, Inc. 618 

Interactive Systems, Inc. 602 

Interactive Technology, Inc. 325 

International Systems, Inc. 125 

International Math & Stat. Libraries 707 

C. Itoh Electronics, Inc. 702 

Kaufman Research Mfg. Inc. 921 

Kinetic Systems Corporation 227 

Linkabit Corporation 617 

MDB Systems, Inc. 326-328 

MIS Week 817 

Management Information Sys. Pty. Ltd. 130-132 
Marc Software International, Inc. 321 

Marway Products, Inc. 725 

McCormack & Dodge Corp. 721 

Micom Systems, Inc. 112 

Micro-Term, Inc. 332 

Midcom Corporation 331 

Minitab Project 101 

Monolithic Systems Corp. 2015 

Motorola 1002 

Nashua Corp. 109 

National Information Systems 432 

National Semiconductor 227-229 

Newman Computer Exchange, Inc. 406 

North County Computer Services, Inc. 123 

Nyplan, Inc. 105 

Oasys, Inc. 902 

Olamic Systems Corp. 926-928 

Organizational & Systems Spec. 732 

Oregon Software 222 

PSI Computer Services, Inc. 218 

P-Stat, Inc. 2006 

Pennington Systems, Inc. 722 

Plessey Peripheral Systems 912 

Polygon 1014 

Proteon Assoc., Inc. 825 

*Quantex Division North Atlantic 1005-1007 
RGTl Systems Software 217 

ROM Systems, Inc. 532 

Ranyan, Inc. 530 

Relational Software Inc. 417 

Relational Technology Inc. 317 

Reliance Electric Company 630 

Ross Systems, Inc. 631 

S & H Computer Systems, Inc. 201 

SPSS Inc. 115 

Saturn Systems, Inc. 502 

Signal Technology, Inc. 118 

C. D. Smith & Assoc., Inc. 329 

Softool Corporation 230 

Software AG 322 

Software House 206 

Software International 604 

Software Results Corp. 626-628 

Synemation Div. of Synemed 606 

System Industries, Inc. 818 

Tektronix, Inc. 522 

Televideo 1012 

Teltone 2012 

The 11 Connexion 128 

Tymshare/Computer Systems & Support 812 
Tymshare/Dynasty 812 

U. S. Design Corp. 102 

Viking Software Services 531 

Virtual Microsystems, Inc. 718 

Webster Electronics, Inc. 805 

Western Data 127 

Western Peripherals 122 

Western Resource Technology, Inc. 429 

Why Systems, Inc. > 521 

Wyle Electronic Mktg. Group 922 

Xerox Computer Services 506 

Xylogics, Inc. 212 

Xyplex, Inc. 826 

Za-Tro Corp. 621 

Zia Corp. 608 
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COBOL 

SOFTWARE SOLUTIONS 
FOR PRODUCTION AND 
FINANCIAL CONTROL 


Available on 

VAX 

in native mode 

PDP 11 

under RSX or RSTS 


OFF-THE-SHELF SUPPLY 
Enquire about our 
30-DAY TRIAL 
ON YOUR MACHINE 

FULL FACILITIES FOR: 

General Ledger- 
Accounts Receivable- 
Accounts Payable- Sales Orders- 
Stock Control - Purchasing- 
BOM-Works Orders -MRP- 
Work in Progress Monitoring 


Send for 

FEATURE WALL CHART 
to: 

COMPUTER SYSTEAAS 
DEVELOPMENT (CSD) LTD. 

75 Morylebone High Street, 
London W1, England. 

Tel: 01-935 2255 


CIRCLE 150 ON READER CARD 
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"BRING YOUR BOSS FOR FREE" 
ADMISSIONS POUCY ANNOUNCED 
FOR DEXPO/WEST 82; MORE THAN 
200 BOOTHS ALREADY TAKEN FOR 
2ND DEC-COMPATIBLE EXPOSITION 
Anaheim, CA — A new "Bring Your Boss 
for Free" admissions policy makes it 
possible for data processing managers, 
top corporate executives and senior 
technical staff members at companies 
using Digital Equipment Corp. computers 
to register for DEXPO/West 82 at 
reduced prices ... when they come in 
pairs. DEXPO/West 82, the Second 
National DEC-Compatible Industry 
Exposition, will be held at the Anaheim 
Convention Center, Anaheim, CA, 
December 7-9, 1982. 

The announcement was made today by 
Larry Hollander, president of Expoconsul 
International, Inc., organizer of the 
DEXPO Shows. "We hope to encourage 
greater communication among all levels 
of management at DEC-using 
companies," Hollander explained. 
"Because DEXPO features all the latest in 
DEC-compatibles, and only DEC- 
compatibles, the Show gives DEC-users 
an excellent opportunity to explore 
maximum potential of their computer 
systems, — and then make fully informed 
decisions." Visitors from the same 
company will be required to register in 
pairs and present business cards as 
documentation in order to take advantage 
of the program. Both registrants will then 
pay only half the usual at-door 
registration fee — that is, two for the price 
of one. 

DEXPO/West 82 will be the largest 
DEC-compatible show ever — twice the 
size of the first DEXPO held last May. The 
first Show featured 125 vendors 
occupying 150 booths. DEXPO/West will 
have 250 vendors in 300 booths. For 
additional information, contact Larry 
Hollander, president, Expoconsul 
Internatioal, Inc., Cranbury, NJ 08512; 
Call (609) 799-1661. 


TALKS ON DEC-COMPATIBLE 
SOFTWARE DOMINATE SCHEDULE OF 
PRODUCT FORUMS TO BE PRESENTED 
AT DEXPO WEST 82 

Anaheim CA — Reflecting the rapid pace 
of technical advances in DEC— 
compatible software, discussions of these 
advances dominate the Product Forums 
scheduled for DEXPO WEST 82. While 
the wide-ranging program affords ample 
coverage of hardware topics as well, talks 
on software productivity, data analysis 
programs and relational data base 
management systems typify the software 
orientation of the Product Forums as a 
whole. DEXPO WEST 82 — The Second 
National DEC-Compatible Industry 
Exposition — will be held at the Anaheim 
Convention Center, Anaheim, CA, 
DECEMBER 7-9, 1982. 


"By attending a Product Forum, in the 
space of only twenty minutes, executives 
who own, manage or use DEC computers 
will discover exactly what the latest DEC- 
compatible technology has to offer," said 
Larry Hollander. Hollander is president of 
Expoconsul International, Inc., organizers 
of the DEXPO Shows: DEXPO WEST 82; 
DEXPO EAST 83; and DEXPO EUROPE 
83. "And since the presentations will be 
made by exhibiting DEC-compatible 
vendors," he continued, "visitors will 
have the opportunity to follow up on 
sessions of greatest interest to them by 
contacting the speakers right in their 
exhibit booths." 

Among the exhibits, visitors will find 
250 vendors demonstrating thousands of 
DEC-compatibles, including hardware, 
software and related services and 
supplies. The Product Forums, which 
complement what will be the world's 
largest exhibition of DEC-compatible 
products and services ever held, are free 
to all Show registrants. Approximately 60 
Product Forum presentations will be 
made during the three-day event. 

For additional information, contact 
Larry Hollander, president, Expoconsul 
International, Inc., 19 Yeger Road, 
Cranbury, NJ 08512; call (609) 799- 
1661. 


DEC-COMPATIBLES AT DEXPO WEST 
82 TO INCLUDE FULL RANGE OF 
HARDWARE, SOFTWARE & SERVICES: 
MANY ON EXHIBIT FOR FIRST TIME 
Anaheim CA — In preparation for what 
will be the world's largest exhibition of 
DEC-compatible products and services 
ever held, approximately 250 vendors are 
readying their latest offerings for exhibit 
at DEXPO WEST 82 - The Second 
National DEC-Compatible Industry 
Exposition. And an informal survey of 
exhibitor plans reveals that visitors will 
find the entire range of DEC-compatible 
hardware, software and related services 
and supplies well represented at the 
December 7-9 event, set for the Anaheim 
Convention Center, Anaheim, CA. 

"Literally thousands of DEC- 
compatibles will be demonstrated," 
announced Larry Hollander, president of 
Expoconsul International, Inc., "including 
hundreds that have never been exhibited 
before." As a notable example, Hollander 
cited the totally new category of DEC- 
compatibles spawned by the introduction 
of dec's personal computers. Expoconsul 
International, Inc., is the organizer of 
DEXPO WEST 82 as well as the other 
DEXPO Shows - DEXPO EAST 83 and 
DEXPO EUROPE 83. 

"The fact is, most owners, managers 
and users of DEC computers are not 
aware of all the technically advanced 
DEC-compatible resources on the 
market," Hollander explained. "Now for 
the first time, they'll have access to the 


technologies that promise to make their 
DEC systems even better." DEXPO WEST 
82 is expected to attract 8,000 visitors 
from every management level — top 
management, DP management, senior 
technical staff, administrative 
management and other members of the 
decision-making team. 

Additional information is available by 
contacting Larry Hollander, president, 
Expoconsul International, Inc., 19 Yeger 
Road, Cranbury, NJ 08512; call (609) 
799-1661. 


"MRP PLUS" TO BE INTRODUCED AT 
DEXPO/WEST 82 

Belmont MA — Interactive Management 
Systems, Belmont, MA, will introduce 
"MRP PLUS": An Innovative Approach to 
MRP 11" at the Second Annual DEC- 
Compatible Exposition, Anaheim 
Convention Center, December 7-9, 1982. 

The product of the total integration of 
IMS' twelve accounting and 
manufacturing software packages, "MRP 
PLUS" is designed to give the executive 
and data processing professional the 
tools he or she needs for successful 
Manufacturing Resource Planning 
(MRP II). 

MRP II, as defined by Oliver Wight in 
The Executive's Guide to Successful MRP II 
(Oliver Wight Limited 
Publications/Prentice-Hall, 1982) is, "a 
company game plan for manufacturing, 
marketing, engineering, and finance." 

The objective of the plan is to ensure that 
all divisions of a company are working as 
a team for the betterment of overall 
corporate productivity and growth. 

"MRP PLUS" not only meets the 
objectives of MRP II, but helps the 
executive to break through specific 
corporate bottlenecks and to achieve 
critical goals such as reduced inventory 
and obsolescence, improved customer 
service and accountability, and 
decreased purchasing costs and overtime. 

The twelve IMS software packages 
integrated within "MRP PLUS" are: 
Accounts Payable, Accounts Receivable, 
General Ledger, Financial Planning, 
Inventory Management and Control, Bill 
of Materials, Shop Floor Control, 

Materials Requirement Planning, Order 
Processing and Sales Analysis, Payroll, 
Fixed Assets, and Purchasing. 

IMS' native mode software is written in 
VAX-11 BASIC, utilizing VAX-11 RMS, 
making it compatible with DEC's 
Datatrieve query language. 

For more information on "MRP PLUS", 
write or call Mike Carabetta, IMS V.P. 
Marketing, 375 Concord Avenue, 

Belmont, Massachusetts 02178-3094, 
(617) 489-3550. 


COMPUTER SYSTEMS CORPORA'HON 
ANNOUNCES VERSION 1.1 OF 
CALC-11 
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Indianapolis IN — CALC-11, Version 1.1 
of the electronic spreadsheet system, is 
now available for the PDP-11 and VAX 
computers. Computer Systems 
Corporation will be demonstrating CALC- 
11 at the Second National DEC- 
Compatible Exposition, Anaheim 
Convention Center, December 7-9, 1982. 

The CALC-11 product is one in a series 
of products from the Software Products 
Division of Computer Systems Corp. 
CALC-11 has been designed to operate 
on all of the popular PDP-11 operating 
systems (RT-11, RT-11 with TSX plus, 
RSX-11, RSTS/E) as well as the VMS 
operating system for the VAX computer. 
CALC-11 will be available for the Unix 
operating system in the near future. 

CALC-11 incorporates some exciting 
features not generally available on 
previous spreadsheet systems. In addition 
to providing many of the standard 
features, CALC-11 allows for data access 
to non CALC-11 files, file encryption, 
three dimensional spreadsheet (paging), 
multiple nested function capability, very 
flexible spreadsheet adjustment and 
various data formating options. 

Distribution and media is supplied with 
each purchase of CALC-11. The user 
manual incorporates both the tutorial 
section and the user reference section. 

The first time user of CALC-11 need only 
follow the tutorials in order to become 
proficient with this utility. The 
installation section of CALC-11 is very 
easy and requires less than a page of 
instruction. 

CALC-11 licenses are priced according 
to which particular operating system is 
required. CALC-11 pricing starts at 
$2000.00. Educational and volume 
discounts are available. For additional 
information, contact: Computer Systems 
Corporation, 5540 Rock Hampton CT., 
Indianapolis, IN 46268, Attn: David 
Tortora, Phone (317) 872-7200, Telex 27- 
6243. 


NYPLAN 3.0 - AN IMPORTANT NEW 
RELEASE OF THE NYPLAN FINANCIAL 
MODELING SYSTEM TO BE EXHIBITED 
FOR THE FIRST TIME AT DEXPO WEST 
1982 

Kirkland WA — Sophisticated business 
graphics which can be output to a wide 
variety of plotting devices, a matrix 
window with split screen, logic window 
with editor, visible calculation, help 
command, and goal seeking capabilities 
are a few of the exciting new features 
potential users will be able to try out at 
the 2nd National DEC Compatible 
Exposition, Anaheim Convention Center, 
Dec. 7-9, 1982. The NYPLAN system is 
presently available on RT-11, TSX+, RSX, 
IAS, RSTS, VAX/VMS, and TOPS 10/20 
operating systems. Information available 
from NYPLAN INC., 135 Lake St., So. 
Kirkland, WA 98033, (206) 822-6074. 


XYLOGICS TO DISPLAY COMPLETE 
LINE AT DEXPO WEST 
Burlington MA — XYLOGICS will have 
their complete line of Peripheral 
Processors on display. These controllers 
are emulators interfacing disk and tape 
subsystems to Digital Equipment Corp.'s 
Q-Bus and Unibus; Data General's I/O 
Bus; and Intel/National's Multibus 
computer systems. 

Software Saver Systems will be 
displayed in XYLOGICS "XL" series of 
packaged products. Utilizing Digital 
Equipment Corp.'s LSI-11/23 
microprocessor and software products, 
the "XL" series, is a complete desk top 
packaged system that contains 22 bit 
addressing, up to 4MB of memory with 
RSX-llM, Q-Bus backplane, 34MB 
Winchester disk, 17MB tape cartridge, 
and 8 prewired RS232 ports. 

XYLOGICS new Storage Cells which 
provide new data storage solutions for 
PDP-11, LSI-11, VAX, Nova/Eclipse, and 
Multibus users will also be exhibited. The 
XSClOO disk and streamer tape unit 
provides up to 320MB of on-line storage 
capacity for PDP-11 and VAX users. The 
XSC200 series provides up to 140MB of 
storage capacity in a 5V4" x 19" cabinet 
for Q-Bus, Unibus, Multibus, and DG I/O 
Bus systems. 


LOW COST, POWER-LOSS DATA 
RETENTION FOR LSI-11 AT ADAC 
DEXPO/WEST BOOTH 427 
Woburn, MA — ADAC's Model 
1816CMOS battery-backed RAM memory 
boards offer up to 30-day retention of 8 
or 16 K word units of system data in the 
event of power outage or shutdown. 
Available in 168-hour and 30 day 
models for either 8K or 16K words, these 
half-quad boards plug directly into a 
single slot of the LIS-11 backplane. 

On-board automatic switching and 
recharging circuitry keep the self- 
contained nickel cadmium batteries 


charged to peak efficiency. System data 
will be maintained at temperatures as 
high as 40°C for 30 days or longer. Full 
operating temperature range is 0° to 
55°C. 

Model 1816CMOS features write 
protect dip switches that are accessible 
while the memory board is positioned in 
the backplane. 

Pricing for the 1816CMOS series is 
highly competitive with extremely low 
"per word" storage cost. Unit prices are: 

Model 1816CMOS-8S (8K, 168 

hour retention) $695.00 

-8L (8K, 30 day retention) $795.00 
-16S (16K, 168 hour 
retention) $1095.00 

-16L (16K, 30 day 
retention) $1295.00 

For complete details and for special 
quantity pricing information, contact: Mr. 
Ben Minsk, ADAC Corp., 70 Tower Office 
Park, Woburn, MA 01801; Phone: (617) 
935-6668; Telex: 949329. 


DISC'S DBL AT DEXPO 
Sacramento, CA — DBL is a business- 
oriented programming language which 
provides users of PDP-11 and VAX 
computers with portability, increased 
programmer productivity, and efficiency 
of operation. DBL is a much extended 
superset of DEC's DIBOL-11 but can 
accept virtually all exisiting DIBOL-11 
sources unmodified. The extensions in 
DBL include structured programming 
facilities, source library "include" 
capabilities, self-contained ISAM file 
structures, auto/load shared runtime 
support, and intermodule "global" data 
storage features. The DBL Symbolic 
Debugger permits immediate debugging 
of DBL programs without special advance 
preparations. The DBL ISAM facility is 
tree-structured and self-reorganizing. 
Reorganizing includes reclamation of 
unused index and data entries thus 



ADAC - Model 1816CMOS 
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greatly minimizing the need for frequent 
file reorganization. Portability of DEL 
programs is of paramount concern. 
Currently spanning all of DEC's major 
operating systems, DEL is now being 
developed for non-DEC environments so 
as to provide the widest possible choice 
of hardware and systems for the DEL 
users and distributors. 

This product will be on exhibit for the 
first time by DISC at DEXPO WEST 82. 


"TWICE-THE-LIFE", 8" DUAL-SIDES, 
DUAL-DENSITY FLOPPY DISKS FOR 
DECS Q-EUS* 

Eerkeley, CA — The FD4 Two-Megabyte 
Floppy Disk System from Synemed, Inc., 
offers twice the MTEF, twice the media life 
of other systems and a happy solution to 
the threat of critical data losses! 

Eased on NEC's reliable Soft-Touch** 
drive, this competitively priced dual¬ 
sided, dual density disk system provides 
Q-Eus* users with a superlong MTEF of 
15,000 hours (compared to an average of 
8,000 for other drives) — and the FD4 is 
the only system with air-cushion 
protection to extend media life. A unique 
air dampener at the base of the head¬ 
loading mechanism eliminates the 
pinching, or biting of disk surfaces that 
leads to the excessive wear and 
information dropout common to other 
double-sided floppy disk systems. Now, 
even in those applications where data 
loss is most critical, media wear and it's 


associated costs can be cut dramatically 
without jeopardizing data integrity. 

Pluggable in half-quad slot and 
completely transparent to DEC RX02 
software, the FD4 runs DEC's ZRXDEO 
diagnostic and looks like a double size 
RX02 with 1962 formatted blocks per 
disk. 

Please direct inquiries to: 

DEXPO/WEST 82 - BOOTH 606), 
SYNEMED, INC., 1215 Fourth Street, 
Eerkeley, CA 94710, Attn: Kevin Miller. 
*Trademark Digital Equipment Corp. 
**Trademark NEC Information Systems, 
Inc. 


NIS, INC. AT EOOTH 432 WILL 
INTRODUCE PASCAL-PLUS AND PRES 
Cupertino, CA — National Information 
Systems will be showing ACCENT R and 
VUE and introducing PASCAL-PLUS and 
PRES at the Second National DEC- 
Compatible Exhibition, DEXPO/WEST 
ACCENT R is a high productivity 
development tool allowing computerized 
information management applications to 
be developed in a fraction of the normal 
time. ACCENT R's combination of a 
relational DEMS with a non-procedural 
query language and a 4th generation 
high-level structured programming 
language makes immediate and direct 
access to information a reality for 
strategic planning, decision support, and 
information management on DECsystem- 
10 and -20 computers. 


VUE is an interactive project 
management system that provides a 
convenient tool to plan and manage 
complex projects. VUE performs critical 
paths analysis for projects with up to 
3,000 activities. VUE performs very well 
in environments where multi on- and/or 
off-site users need program access. The 
menu-driven user interface allows easy 
data entry, modification, and report 
selection. VUE runs on DECsystem- 
10/20, HP3000, VAX, PDP-11, and 
Perkin Elmer. Reporting is done on CRTs, 
printers, or optional graphics plotters. 

PASCAL-PLUS is a production oriented 
compiler for DEC-10 and DEC-20 users, 
developed for the serious Pascal 
implementor. PASCAL-PLUS extends 
standard features, removes many of the 
arbitrary restrictions appearing in 
standard PASCAL versions, and utilizes 
an advanced optimization design. New 
features, normally occurring in 
languages such as ADA, FORTRAN, and 
ALGOL, have been added to increase 
programming power and flexibility. The 
PASCAL-PLUS compiler produces code 
that is 30-40 percent more compact than 
most standard compiler versions, with a 
corresponding increase in processing 
speed. 

PRES is an interactive personnel 
resource management system. PRES 
provides record keeping and record 
tracking for all employees, including 
such features as job history, benefits 
administration, compensation, and salary 
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history. Special government 
requirements, such as affirmative action 
reports, are met, as are regular corporate 
needs. PRES offers a powerful reporting 
function. This menu-driven system allows 
easy data entry, modification, and report 
selection. 

Dave Bray (PRES), Joe Rizzo (VUE), and 
John Enyedy (ACCENT R, PASCAL-PLUS) 
will be representing National Information 
Systems at Booth 432, waiting to 
demonstrate the power of these products. 

National Information Systems Inc., is 
headquartered at 20370 Town Center 
Lane, Cupertino, Calif. 95014. 


A FIRST FOR THE US. SOFTWARE 
INDUSTRY (at DEXPO/WEST 82)— 
HINDITRON OFFSHORE SOFTWARE 
SERVICES 

... is the first time exhibition of a service 
that offers cost effective options to the 
software industry that will help you get 
more from your computer for less. 

HINDITRON's software development 
centre in Bombay, India, is geared to 
meet your specific requirements, using a 
wide range of computer and 
microprocessor systems. 

HINDITRON offers software services for 
developing Application Software, System 
Software, Process Control Software and 
Software Conversions on turnkey and 
contract basis. 

A multidisciplinary team of over one 
hundred software professionals has 
provided such services satisfactorily to 
DEC and DEC OEMs in the Asian, 

African and Middle-East regions. 

Now for the first time these services are 
offered to the U. S. software industry. 

For more information on HINDITRON 
OFFSHORE SOFTWARE SERVICES 
contact Harish Mehta, Director, 
HINDITRON COMPUTER SYSTEMS & 
CONSULTANTS PRIVATE LIMITED, Eros 
Bldg., 5th Floor, 42, M. K. Road, Bombay 
400 020, India, Tel. No. 22-09-20. 


RSTS/E NETWORKING SOFTWARE TO 
BE DEMONSTRATED AT DEXPO/WEST 
Toronto, Canada — Digital Management 
Group Ltd. will demonstrate DMG/NET — 
networking software for RSTS/E users — 
at DEXPO/WEST. 

DMG, a DEC-oriented software and 
consulting company, developed 
DMG/NET as an effective and 
economical solution to today's complex 
networking problems. DMG/NET 
provides a networking growth path as the 
user's needs grow, since network carriers 
from direct cable links through leased 
lines and auto-dial units to X.25 networks 
are supported in any combination. Thus a 
network that starts out as a simple 2 
system link can grow to a multi system, 
multi-carrier network as and when 
required. 

"DMG/NET evolved out of a project for 


a client," says John Dightam, President of 
DMG. 'Their need was for a 
communication network that would 
provide low cost interactive access from 
any of their head office terminals to a 
wide variety of DEC and non-DEC 
computers throughout Canada and the 
United States. They also needed low cost 
file transfer capability between their 
seven RSTS/E sites across Canada. We 
were asked to provide all this, with the 
mandatory specification that no 
modifications be made to either the 
standard RSTS/E system or their PDP-11 
hardware, as supported by DEC." 

DMG/NET provides reliable, trouble- 
free networking and takes advantage of 
the cost savings offered by X.25 
networks, especially over long distances. 
DMG/NET interfaces with Tymnet, 

Telenet and overseas X.25 networks. 

Some users have found that they have cut 
their communication costs by as much as 
90%. 

DMG/NET provides two-way file 
transfer and interactive dialogue 
capabilities between a local RSTS/E host 
and other RSTS/E systems. Interactive 
communication with IBM and other non 
RSTS/E systems is also possible, and file 
data can be transferred from non-RSTS to 
RSTS by use of the "log" option 
contained in DMG/NET. All this is 
accomplished using short, English 
language commands, which can be easily 
understood by non-computer personnel. 

The "alternate path" capability of 
DMG/NET allows all available 
alternatives for network connection to be 
explored, including all outgoing ports, 
remote access numbers and different 
carriers, if these facilities are available on 
the computer. If a connection cannot be 
completed because all lines are in use, or 
because of a fault in the network or 
communications unit, DMB/NET will 
describe the situation in an easily 
understood message displayed on the 
user's screen. When a network problem 
does occur, DMG/NET diagnostic 
routines help pinpoint the problem 
quickly. Comprehensive usage statistics 
recorded by the sytem facilitate 
management of day-to-day traffic on the 
network. 

Through table-driven software, 
DMG/NET provides total interface and 
network flexibility. For example, as new 
micro-computers become available and 
are interfaced with the RSTS/E host, 
DMG/NET can handle the dialogue 
requirement between the two central 
processors. 

DMG/NET is available on either a 
perpetual license or a rental basis — both 
with comprehensive support plans. "We 
are really committed to support," says 
DMG President Dightam, "and we have 
designed DMG/NET so that it lends itself 
to remote diagnosis. For example, from 


our Toronto office, we can reconfigure, 
diagnose faults, and load new versions 
into customer computers anywhere in the 
world — just as if they were in the next 
office." 

DMG/NET will be exhibited by DMG in 
Booth No. 125, at DEXPO/WEST'82. 

For more information on DMG/NET, 
contact Ken Allsopp, Digital Management 
Group Ltd., 4800 Yonge Street, 
Willowdale, Ontario, Canada M2N 6G5, 
Telephone: (416) 225-7788. 

RSTS/E, PDP-11 and DEC are 
registered trademarks of Digital 
Equipment Corporation. DMG/NET is a 
registered trademark of Digital 
Management Group Ltd. 


BRITTON-LEE INTRODUCES 
RELATIONAL DBMS FOR DEC 
VAX/VMS 

Los Gatos CA — Britton-Lee, Inc. 
announces the introduction of the 
SYSTEM 300 and SYSTEM 600 relational 
database management systems for DEC 
computer systems. These products are for 
use with the VAX-11/750 and VAX- 
11/780 computers that use the VMS 
operating system. Additionally, versions 
of the SYSTEM 300/600 are available for 
use with PDP-11 and VAX-11 computers 
running the UNIX operating system. 

The heart of the SYSTEM 300/600 is 
the Britton-Lee Intelligent Database 
Machine (IDM). The IDM combines 
relational database management software 
with hardware designed specifically to 
perform database management at high 
speeds. Located between computer and 
disks, the IDM offloads the entire 
database management function from the 
computer. 

The low-priced SYSTEM 300 is ideally 
suited for medium demand VAX 
applications. The SYSTEM 600 is a 
higher performance product, making it 
an ideal match for high demand 
applications with large databases and 
many users. The SYSTEM 300 can 
control up to four SMD compatible disk 
drives for databases of up to 2.7 billion 
bytes. The SYSTEM 600 controls up to 
sixteen disk drives for a maximum 
database size of 10.8 billion bytes. The 
SYSTEM 300/600 attaches to the VAX 
computer via a high speed IEEE-488 
parallel interface. 

The SYSTEM 300/600 includes an IDM 
(mounted in a 40 inch cabinet), hardware 
to interface directly to the VAX UNIBUS 
adapter, and Support Software that runs 
under the VMS operating system. Also 
included is one year of software 
maintenance, which includes software 
updates and phone-in consulting. 
Additional software maintenance and 
hardware service contracts are available. 
Installation is available separately. 

Also included with the SYSTEM 
300/600 is the Britton-Lee IDL Query 
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Language. This user-friendly query 
language allows unskilled users to easily 
access and modify SYSTEM 300/600 
databases. Included for application 
programming, is a runtime subroutine 
library that allows VAX-1 FORTRAN and 
COBOL programs, and "C" programs to 
access SYSTEM 300/60 databases. 
Optional VMS precompilers allow IDL 
commands to be embedded in VAX-11 
FORTRAN and COBOL programs, and 
"C" programs. Database administration 
utilities, which allow for backup, crash 
recovery and bulk loading of data, are 
included in the standard product. 

A unique feature of the SYSTEM 
300/600 is that it can be connected to 
several computers simultaneously. This 
allows multiple VAX computers to use it 
as a centralized database resource. The 
optional SYSTEM 300/600 Interface 
Package provides this feature. 

The Britton-Lee SYSTEM 300 and 
SYSTEM 600 can be ordered beginning 
June 1, 1982. The SYSTEM 300 is priced 
starting at $62,900 and the SYSTEM 600 
starts at $85,300. The SYSTEM 300/600 
Interface Package that allows the System 
300/600 to be connected to additional 
VAX computers is available for $15,800. 
Pricing for the UNIX versions of the 
SYSTEM 300/600 is the same. 

A public demonstration of the SYSTEM 
300/600 will be held at DEXPO West. 

For more information: Phil Amend, 
Vice-President, Marketing, Britton-Lee, 

Inc. Kathy Shadley, Marketing 
Administrator, Britton-Lee, Inc. 408/378- 
7000. 

Intelligent Database Machine, IDM, and 
IDL are registered trademarks of Britton- 
Lee, Inc. 

DEC, VAX, VMS, PDP and UNIBUS are 
registered trademarks of Digital 
Equipment Corporation. 


CAMBEX AT DEXPO IN DECEMBER 
Waltham MA — Cambex Corporation will 
be announcing new memory products for 
the DEC VAX-11/780* and VAX- 
11/750* series of processors at 'The 
Second National DEC-Compatible 
Exposition (DEXPO)". 

Cambex has been a supplier of OEM 
memories for over a decade and will 
exhibit its UNIBUS and Q-Bus compatible 
memories along with the new VAX 
products. Additionally, there will be an 
add-on version of their semiconductor 
RK05* emulator disk. 

All of the products have gained wide 
acceptance in varied applications areas 
and across the PDP-11* and LSI-11* 
families. Many users have boasted of 
significant increases in performance, 
since the products are utilizing 64K 
dynamic RAMS and the highest quality 
components and manufacturing facilities 
available. 

The Cambex Booth is *232. Any 


inquiries can be made to Mini/Micro 
Marketing Department (617) 890-6000. 
*Registered Trademarks of Digital 
Equipment Corporation. 


COMPLETE DATA ANALYSIS SYSTEM 
FOR VAX ANNOUNCED 
Nashville TN — S&H Computer Systems, 
Inc. has introduced INDAStm (Integrated 
Data Analysis System), the first complete 
data analysis system for Digital 
Equipment Corporation VAX/VMS 
systems. 

INDAS 

INDAStm (Integrated Data Analysis 
System) is a complete data analysis 
system for Digital Equipment Corporation 
VAX/VMS systems. In one integrated 
system INDAStm provides (1) databases 
facilities (including the ability to sort, 
merge, update and join databases); (2) a 
complete programming language; (3) a 
matrix manipulation language; 

(4) powerful statistical analysis 
procedures including the General Linear 
Model. 

Although a number of products are 
available for the VAX that provide 
programming languages or database 
access or statistical analysis, INDAStm 
provides all of these features in a single 
integrated system. Using INDAStm, the 
data analyst performs the complete 
analysis from the raw data to the final 
printed results within the INDAStm 
system. 

The database, programming language 
and plotting and charting facilities make 
INDAStm a flexible system well suited to 
a broad range of applications in science 
and business. 

INDAStm Database 

INDAStm features relational database 
capabilities. The MERGE statement 
implements the relational join operator, 
linking data from several data sets by a 
common key. The UP-DATE statement 
applies transaction records to a master 
file. The IF, KEEP and DROP statements 
implement subsetting by records and 
variables. Taken together, these 
statements allow users to maintain and 
extract data with a minimum of 
programming. 

INDAStm Programming Language 

INDAStm provides a complete 
programming language that includes 
structured programming facilities, 
subprograms, numeric and character 
data types, matrices, as well as statements 
for selecting, merging, dating and joining 
data sets. Because the language compiler 
is part of the INDAStm system, it is not 
necessary to compile and link programs 
separately. 

A powerful set of intrinsic functions is 
part of the programming language. In 
addition to the usual mathematical and 
transcendental functions, INDAStm 


provides functions to perform operations 
such as computing probability functions, 
character string manipulation, and state 
name and zip code conversion. 

Operations on character strings include 
the ability to extract or alter substrings, 
determination of the length of a string, 
concatenation of two or more strings, 
location of one string within another and 
removal of selected characters. INDAStm 
also provides character-string matrices. 
INDAStmI Matrix Manipulation Language 
In addition to a conventional 
programming language, INDAStm 
provides a complete matrix manipulation 
language. This facility is similar in power 
to APL but does not require a special 
terminal. The matrix manipulation 
language allows matrix variables, 
constants and functions. The allocation of 
memory space for matrices is completely 
dynamic and automatic. Arithmetic 
expressions involving matrices can be 
written as simply and directly as those 
involving scalars. 

For example, if X is a matrix variable, 
the following statement computes the 
inverse of the matrix resulting from the 
product of the transpose of X with X: 

Y = INV (X'* X) 

Matrix operators available in the 
language include: addition, subtraction, 
matrix multiplication, scalar 
multiplication, transpose, horizontal 
concatenation, vertical concatenation, 
comparison and summation over selected 
rows and columns. Generalized 
subscripts allow access to single matrix 
elements or sections of the matrix. 

Intrinsic matrix functions include: 
inverse, generalized inverse (Moore- 
Penrose), determinant, singular value 
decomposition, solution of linear 
equations, sweep operator, 
transcendental functions and probability 
funtions. 

INDAStm General Linear Model 
The General Linear Model procedure 
analyzes data within the framework of an 
arbitrary linear statistical model. This 
procedure is exceptionally 
comprehensive, encompassing in a 
unified setting: 

• Analysis of Variance (ANOVA) 

• Regression 

• Analysis of Covariance (COANOVA) 

• Multivariate Analysis of Variance 
(MANOVA) 

The syntax is simple yet powerful, 
paralleling the notation used to describe 
linear models. A particular strength of the 
General Linear Model is its ability to 
accept unbalanced data, which allows 
analysis of the type of data frequently 
encountered in applications but which 
cannot be analyzed with traditional 
methods. 

INDAStm Statistical Procedures 
INDAStm has a comprehensive set of 
procedures for statistical analysis. This 
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includes descriptive and univariate 
statistical analysis; analysis of variance 
for balanced and unbalanced designs; 
non-parametric analysis of variance; t- 
tests; probit analysis; linear models for 
catagorical data; multiple, stepwise and 
non-linear regression; autoregression; 
correlation (Pearson, Spearman and 
Kendall), canonical correlation; 
discriminant analysis; cluster analysis; 
and factor analysis. Graphics facilities 
include procedures for generating curve 
and contour plots, bar charts, pie charts, 
star charts and block charts. 

INDAStm is Extensible 
INDAStm users can write procedures to be 
incorporated the the INDAStm system and 
called just as the standard INDAStm 
procedures. This allows a flexible and 
convenient way to develop specialized 
analyses. All of the database and program¬ 
ming features of INDAStm can provide the 
input to a user-written procedure. 

INDAStm Is Another Quality 
Product From S&H 

S&H Computer Systems, Inc. has been 
developing high quality system software 
for Digital Equipment Corporation 
computers since 1976. In addition to 
INDAStm, S&H has developed the 
popular TSX-PIustm operating system, the 
high-performance COBOL- PIustm 
compiler and the versatile RTSORTtm disk 
sort program. S&H products are in use at 
over 3,000 sites in more than 25 


countries. S&H plans to deliver the first 
INDAStm systems early in 1983. 

Please address domestic sales inquiries 
to Gary Manookian, and all other 
inquiries to Richard Dohrmann, Vice 
President, at S&H Computer Systems, Inc. 
1027 17th Avenue S., Nashville, 
Tennessee 37212, (615) 327-3670, Telex 
786577 S&H NAS. 


ADVANCED SOFTWARE PRODUCTS 
announces QSORT Version 3.0 
Lathrup Village, MI — Advanced 
Software Products has developed a sort 
utility, QSORT, that uses the operating 
system's efficiency — not the 
programmer's — to sort large quantities 
of data and merge unsorted files. QSORT 
Version 3.1 with expanded file sorting 
capacity, will be released for the first time 
at DEXPO/WEST 82. Meanwjiile, QSORT, 
Version 3.0, to be released October 1st, 
1982, now lets programmers get on with 
the business of programming systems 
instead of programming sorts. 

Performance 

QSORT is a high performance sort 
utility developed for the PDP-11 
computers utilizing CTS-500/RSTS-E 
operating systems. Written completely in 
PDP-11 MACRO enables QSORT to take 
full advantage of the powerful features 
of the operating system. Programmers no 
longer have to build, translate and 
compile a sort file; QSORT allows the 


programmer to describe the sort with a 
SINGLE command line. 

Efficiency 

QSORT has been developed and 
installed over a two year period in 
institutions where large volumes of data 
are sorted for daily and monthly 
reporting. To enhance speed 
performance, QSORT was developed as a 
run-time system utility-only the data 
swaps in and out, not the program. The 
program will only swap in-never out. This 
is due to the fact that the code is fixed 
and need not be saved. QSORT is re¬ 
entrant; only one copy of the program is 
ever loaded into memory no matter how 
many users are concurrently utilizing 
QSORT. 

Generally, QSORT requires 1.5 times 
the input file for work space. This space 
can be allocated to any random access 
device supported by the system it is 
running on. 

Enhanced 

In addition to high performance and 
efficiency, the three major features of the 
newest version of QSORT (Version 3.0) 
gives QSORT file sorting capacity that 
supports 2^® blocks of data with any 
number of records. QSORT is also 
capable of merging two unsorted files into 
a single sorted file. And, QSORT can 
handle fixed length, no-span, unformatted 
ASCII files as typically used by BASIC- 
PLUS programmers. 
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Features 

QSORT is flexible and may be called 
by any language which supports "core 
common". Upon successful completion, 
QSORT can be chained to execute 
another program. 

Enhanced speed performance, full RSX- 
11 compatability, and auto attribute 
recognition for RMS-11 sequential files 
round out the additional enhancements of 
QSORT Version 3.0. 

An optional SORTG/GSORT processor 
allows QSORT to be substituted for most 
DIBOL or MCBA sorts without any user 
program modifications. 

Availability 

QSORT Version 3.0 is available for 
$1,200.00. Marketed exclusively by 
ADVANCED SOFTWARE PRODUCTS, 
further information, including a 7-day 
trial DEMO, may be obtained by calling 
or writing: Advanced Software Products, 
28690 Southfield Rd., Suite 291, Lathrup 
Village, MI 48076 (313) 569-5570. 


SOFTOOL^ CHANGE AND 
CONFIGURATION CONTROL (CCCtm) 
Goleta CA - SOFTOOL CORPORATION 
is pleased to announce the release of its 
change and configuration control 
(CCCtm) environment, a new product to 
be exhibited for the first time at 
DEXPOtm/WEST 82. 

For a long time, software managers and 
programmers alike have been waiting for 
a software tool that would allow them to 
automatically keep track of all software 
and documentation changes and 
versions. CCCtm fulfills this need in a 
most impressive manner. CCCtm can 
reconstruct software and documents upon 
demand! 

CCCtm is a comprehensive system for 
the management of software changes and 
configuration control. It is an interactive 
tool with an easy-to-use interface. It 
supports, in addition to automatic 
program reconstruction, impact of 
change reports, access control, archiving, 
compression, encryption, automatic 
backup and recovery, as well as other 
powerful features. It includes an editor, 
and provides interactive tutorials that 
facilitate training. CCCtm can handle 
programs written in any programming 
language. 

CCCtm is part of SOFTOOL^, which is 
an integrated set of tools for software 
management, development, and 
maintenance. 

CCCtm is available, off-the-shelf, for the 
DEC VAX computer. 

A permanent license for CCCtm, 
including one year maintenance, costs 
$30,000. Various lease plans are also 
available. 

SOFTOOL^ products can be seen at 
Booth 230 at the DexpoTM/West 82 
Convention. 


ZIA AT BOOTH 604 
Morris Plains, NJ — Zia Corporation, a 
vendor of DEC compatible utility 
software, announced today that the 
following products will be exhibited in 
Booth 604 at DEXPO 82. 

Zia Back/Rest ... a full incremental 
backup and restore utility for users of RT- 
11, TSX and TSX Plus. Operates on all 
supported random access devices and 
handles multi-volume backups 
automatically. 

Zia RIFLE . . . designed to facilitate the 
transfer of files between two PDP-11 
computers, hard wired or through dial-up 
lines, using the RT-11 operating system. 
Files transferred may be of any type, 
including source, data, object, or binary. 

Zia Virtual Terminal . . . Permits RT-11, 
TSX or TSX plus users to establish a 
connection between his local computer 
and nearly any remote time-sharing 
system. The user then may interact with 
the remote computer using his local 
terminal or transmit files in either 
direction. A simple control language 
offers many options including 
transmission speed control and automatic 
call placement and termination. 

For further information please contact 
Glenn Burnett at (201) 328-7177. 


COMPATIBLE HARDWARE & 
SOFTWARE FOR DEC PERSONAL 
COMPUTERS AMONG NEW PRODUCTS 
TO BE FEATURED AT DEXPO WEST 82, 
ANAHEIM, DEC. 7-9 
Anaheim CA — Although dozens of 
vendors are planning major DEC- 
compatible product introductions as part 
of their exhibits in DEXPO WEST 82, it 
appears that the introductions that will 
generate the most excitement and 
industry-wide interest will be the 
products designed to be used with Digital 
Equipment Corporation's personal 
computers. 

"Right now, the biggest customers for 
dec's personal computers are the people 
already using larger DEC machines, and 
they're eager to discover the full range of 
hardware and software available for the 
personal computers," stated Larry 
Hollander, president of Expoconsul 
International, Inc. "Since every single 
one of the 8,000 or so executives 
attending DEXPO West 82 will come from 
companies now using DEC systems, the 
Show will be the focal point of their 
personal computer buying decisions. 

To accommodate this interest in the 
personal computer compatibles, 
exhibitors offering these products will be 
identified by a special sign. "We are 
taking every step to help the DEC- 
compatible industry communicate and 
prosper," Hollander added. DEXPO WEST 
82 — The Second National DEC- 
Compatible Industry Exposition — will be 
held at the Anaheim Convention Center, 


Anaheim, CA, December 7-9, 1982. 

The Show was recently expanded to 
make room for 250 exhibiting companies 
that will occupy 300 exhibit booths. 

Twice the size of DEXPO 82 held last 
May, DEXPO WEST 82 will be the world's 
largest, most comprehensive exhibition of 
DEC-compatibles in history. 

For additional information, contact 
Larry Hollander, president, Expoconsul 
International, Inc., 19 Yeger Road, 
Cranbury, NJ 08512; call (609) 799- 
1661. 


PRODUCT NOTES 
& UPDATES 

SOUTHERN SYSTEMS ANNOUNCES 
PLAN TO BEGIN OEM SALES OF 
INTERFACES 

Fort Lauderdale, FL — Southern Systems, 
Inc. (SSI), add-on printer company, has 
announced the start of a new OEM sales 
program for SSI-developed and 
manufactured computer-printer 
interfaces. 

The OEM program of interface sales 
will be an addition to the company's 
servicing of end-users with complete line 
printer systems using the newest 
technologies in speed ranges of 200 to 
1600 lines per minute. 

In the interface sales program, OEMs, 
system houses, distributors and other 
volume users will receive quantity 
purchase prices that range from $200 to 
$2,000 depending on the type of 
computer interfacing required. 

Southern Systems designs and 
manufacturers line printer interfaces and 
controllers for all Digital Equipment 
Corporation computers as well as for 
Data General, Interdata, Texas 
Instruments, Hewlett-Packard, IBM and 
Burroughs. SSI also makes a wide range 
of serial communication interfaces, both 
synchronous and asynchronous, 
including those compatible with IBM 
protocols 2780/3780, Burroughs, Univac 
and NTR. 

The company is located at 2841 
Cypress Creek Road, Fort Lauderdale, FL 
33309, (305) 979-1000. 


WHY SYSTEMS RELEASES DECISION 
SUPPORT TOOL FOR DEC 
COMPUTERS 

Redmond, WA — A new decision support 
system has been released by WHY 
Systems Inc. The DIGICALCtm package 
was designed for Digital Equipment 
Corporation computers, and is currently 
available on VAX using the VAX/VMS 
operating system and on PDP-11 systems 
running under RSTS/E or CTS-500. 

DIGICALC is an interactive, CRT- 
oriented planning and forecasting tool 
used by accountants, engineers, 
managers, executives, scientists and 
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others who want to automate their 
number processing needs. Both simple 
and complex numeric calculations can be 
quickly and easily performed, giving the 
user more time to work on other matters. 
"Increased productivity is the key," said 
Wayne Yarnall, President of WHY 
Systems. "DIGICALC is designed to give 
key personnel the answers to complex 
problems quickly, so that they can make 
important decisions with the best possible 
data at their fingertips." Yarnall added, 
"An investment in DIGICALC gives your 
top people additional leverage, and it has 
a payback period that can be measured 
in days or weeks, not months or years." 

The most common uses of DIGICALC 
are for budgeting and financial modeling. 
An accounting worksheet is displayed on 
the video screen. A simple model might 
consist of budget descriptions down the 
left-hand column, headings for twelve 
months across the top, with totals for 
each month, and cross totals for each 
budget category. Data can be entered 
directly onto the screen by the user, or it 
can come from an external source such 
as an existing General Ledger system on 
the same computer. 

In a modeling session, any of the 
factors that make up the model can be 
chanoed. and the entire model can be 
immediately viewed from the new 

prospective. This "What if" capability is 
especially helpful to the business 
manager. The manager can say "What if 
sales drop 3.8 percent, and inflation 
increases 1.2 percent per month for the 
next six months." The new scenario will 
be displayed, and the results are 
available to continue the modeling 
process. Worksheets can be prepared for 
individual departments, and can be 
consolidated into divisional and 
organization-wide models. After all the 
interactive modeling is complete, 
DIGICALC will print reports that can be 
used throughout the organization. 

The product can be used effectively in 
any environment with the proper 
operating system. DIGICALC is 
completely self-contained, and no extra¬ 
cost system hardware or software options 
are required in order to use it. Facilities 
for transfering data into and out of 
DIGICALC for use with other computer 
applications are provided. 

WHY Systems, Inc. specializes in the 
development of software for DEC 
computer systems. Its offices are located 
at 16902 Redmond Way, Redmond, 

Wash. 98052; tel. (206) 881-2331. 


DIGITAL PRODUCTS REPAIR CENTER 
BROCHURE FROM REUANCE 
ELECTRIC 

Cleveland, OH — A new four-page 
illustrated brochure describing how the 
Reliance Electric Digital Products Repair 
Center provides fast, reliable repair. 


exchange or replacement of PC Boards 
and related equipment is now available. 

The file-size brochure points out that 
the Digital Products Repair Center is 
equipped to solve every possible kind of 
PC Board problem through the use of 
advanced state-of-the art equipment and 
instrument calibration procedures. PC 
Boards can be diagnosed and tested 
under simulated operating conditions, 
including heat and humidity 
environmental simulations, plus no-load 
and full-load, testing. 

Explained in the brochure, containing 
photos of troubleshooting and testing 
procedures, is that the Center's 
capabilities include repair of PC Boards 
from Reliance® and Toledo® equipment 
plus AutoMate® Programmable 
Controllers, computer and computer 
interface systems, and UDACtm 
P rogrammable Process Controllers. 

Repair service is also furnished for 
computer and control equipment made 
by Digital Equipment Corp., Data 
General and GRI. Noted is that 10-day 
service is normal but emergency repairs 
can be made in 24 hours. 

Also described is the Reliance Electric 
parts exchange program for selected 
AutoMate Programmable Controller 
components which gives users immediate 
repair service to minimize equipment 
downtime, and the AutoMate CRT 
Programmer Rental System for reducing 
programming costs. 

To obtain a copy of the new Digital 
Produces Repair Center Brochure — H- 
2661-2 — write to Reliance Electric 
Company, 24701 Euclid Avenue, 
Cleveland, Ohio 44117. 


DIGITAL EQUIPMENT TO MARKET IN¬ 
TERNATIONALLY RAXCO RABBIT 
SOFTWARE 

Atlanta, GA — RAXCO Inc. announces 
an international marketing agreement 
with Digital Equipment. Under the terms 
of the agreement. Digital Equipment 
Australia Pty Limited will market and 
support RAXCOs "Digital tested" RABBIT 
Software on an exclusive basis 
throughout Australia and New Zealand. 
Negotiations to provide similar services 
throughout Europe are expected to be 
concluded shortly. RAXCO will continue 
to directly provide RABBIT Software 
throughout North America. 

In the July 1982 issue of "digital news" 
Digital is quoted as follows: "Digital is 
pleased to announce a new program 
designed to make it easier for customers 
to obtain some of the Software written by 
third parties in Australia, New Zealand 
and Overseas. 

"This worldwide program was 
established in response to the many 
requests made by customers to Digital, 
especially in countries such as Australia 
and New Zealand. Customers had 


expressed a concern at DECUS Meetings 
and in their Survey responses to Software 
Services, that it was expensive and time 
consuming to obtain Software Applica¬ 
tions packages written by Software 
Houses and by major customers in 
Europe and the U.S.A. It was not easy 
for them to evaluate packages remotely or 
to negotiate an agreement for their 
purchase. They were also concerned 
about local support for these packages. 

"In addition, many customers have 
developed software which they believe to 
be of a high enough quality to be 
marketed. They asked Digital to use its 
extensive marketing capabilities to make 
these Applications Packages available to 
Digital's customer base worldwide. 

"The Digital Application Software 
Library has been setup by Digital to 
provide customers with access to 
packages developed locally and overseas 
by software houses and by customers." 

RABBIT Software is available for DEC 
computers running VMS, RSTS/E and 
soon-to-be-announced RSXX-llm plus. 
RABBIT-1 Software provides system re¬ 
source accounting, auditing and billing 
reports. 

RABBIT-2 Software provides graphic 
system performance analysis through an 
interactive command language. 

RABBIT-3 Software is a job accounting and 
monitor program for RSTS/E systems. 
RABBIT-4 Software is a computer security 
system for users and data files under 
RSTS/E. 

RABBIT-5 Software is a high speed file 
backup and restore system for VMS. 

Over 500 RABBIT Systems have been 
installed worldwide in the past two years, 
including England, Ireland, Germany, 
France, Australia, South Africa, Mexico, 
Canada and the U.S.A. 

For more information contact: RAXCO 
Inc., Suite 200, 6520 Powers Ferry Road, 
Atlanta, Georgia 30339; U.S.A., 

Telephone: (404) 955-2553; TWX 810- 
766-2256; Telex 54-2659. 


NEW PRODUCTS 

CABLESHARE ANNOUNCES 
ADVANCED MARKET RESEARCH 
TOOL 

London, Ontario — Cableshare, Inc. an¬ 
nounces Surveyor, a unique approach to 
automated market research. Stand-alone 
units with both Telidon & Videodisc 
prompt consumers to answer questions 
by touching a pressure sensitive screen. 
This approach is faster, more accurate 
and can handle a greater volume of data 
cheaper than other interviewing 
techniques. 

The full video with sound option will 
allow pretesting of T.V. commercials and 
new products. The Telidon images will 
match conventional questionnaires but 
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with full colour and computer-provided 
questions. Researchers can branch to 
different questions based on the 
consumer's response. Product discount 
coupons or vouchers can be 
automatically printed at the end of an 
interview as a gift for co-operation. 

Cableshare Inc. is a public company 
which develops computer information 
systems, software products and Telidon 
business systems and markets them in 
Canada, the United States and abroad. 


INNOVATIVE ELECTRONICS OFFERS 
IBM 3270 BSC CONVERSION 
Miami, FL — Innovative Electronics, Inc. 
has announced the MC-80/600-01 
communications processor. Emulating an 
IBM 3274-51C communications 
controller running configuration support 
level A, this device converts an 
inexpensive DEC VT-100 compatible 
terminal into a full function IBM 3277-1, 
3277-2, 3278-1, 3278-2 terminal 
communicating with the IBM host using 
the EBCIDIC binary synchronous 
communications (BSC) protocol. 

Economical asynchronous ASCII 
terminals such as the DEC VT-100 can be 
used in both local and dial-up 
applications. Full screen mapping is 
performed by the MC-80/600-01: data 
displayed on the asynchronous ASCII 
terminal will be the same as an IBM 
3277/3278 display station, with virtual 
screen sizes of 480, 960, and 1920 
characters. All screen formatting 
capabilities are supported. These include 
protected or unprotected alphanumeric, 
numeric, and non-display fields, 
character highlighting, and auto-tabbing. 
All keyboard functions are supported 
including vertical and horizontal cursor 
movement, erase, insert, delete 24 
program function (PF) and program 
access (PA) keys. Status information is 
displayed in English at the bottom of the 
display. 

Maintainabiity of the unit is 
dramatically increased by the extensive 
on and off line diagnostics. Diagnostic 
indications, provided through a seven 


segment display, include indications of 
the device being polled or selected and 
transmission errors. Off-line diagnostics 
are executed when the system is powered 
on, as well as when initiated by the 
operator. The CPU, ROM, RAM, and data 
paths are always tested. Operator 
initiated tests include the exercise of 
attached peripheral devices or "canned" 
messages to and from attached 
processors. A third level of testing is 
provided through test connectors, which 
connect outputs to inputs, completely 
testing every interface signal. These 
diagnostics enable the clerical operator to 
easily isolate failures to the 
commuincations processor, mode, or 
terminal device allowing the system 
vendor to reduce the cost to maintain the 
system through initial telephone 
assistance. This stand alone self powered 
micro-communications processor 
provides up to 16K of ROM, 16K of RAM, 
and two serial communications ports. The 
price for the basic unit is $1745.00. A 
model sharing port is optional. Delivery 
is from stock to 30 days. An additional 
port, allowing two independent terminal 
devices to be supported is $250.00 
additional and will be available this fall. 


NEW MDB MODEM CONTROL BOARD 
DOES ITS OWN TROUBLESHOOTING 
Orange, CA — A new asynchronous 
serial interface with model control for 
LSI-11 based systems will be introduced 
by MDB Systems, Inc., the world's largest 
independent manufacturer of interface 
products. The interface is completely 
compatible with the DEC CLVll-E and, 
at the same time, offers a number of 
significant features which are not present 
on the DEC board. Notable among these 
is a troubleshooting capability. 

The single line RS-232-C interface is 
designated the MLSI-DLVl 1-ED, and it is 
appropriate for a wide range of modem 
oriented applications. Among its unique 
features are device addressing, and 
interrupt vectors which are switch 
selectable for operating convenience. 


Data rates from 50 to 19.2K baud are 
both switch and program selectable. To 
assure complete functionability in 
contemporary systems, the MDB board 
has four level interrupt capability which 
is jumper selectable. 


VAX USERS GET A REMOTE, INTER¬ 
ACTIVE TRAINING TOOL 
Provo, UT — Clyde Digital Systems, Inc., 
a principal supplier of application 
software, announces DEMO, a stand 
alone utility package for interactive user 
training and trouble-call support under 
VAX/VMS. The product also provides a 
framework for remote software 
demonstration. VMS software vendors 
can now demonstrate software and 
support customers without expensive 
traveling. DEMO is also invaluable to any 
VAX site which supports remote users. 

The DEMO product is similar in function 
to the popular CONTRL program 
currently running under the RSTS/E 
operating system. 

This new product runs entirely in VAX 
native mode and gives users system 
support never before available under 
VMS. DEMO allows an authorized 
support manager to watch any terminal 
on the system, remote or local. This 
includes seeing all user keystrokes and 
computer response. This is invaluable in 
training and consulting situations where 
the user needs advice or assistance with 
computer interaction. The program even 
allows the support manager to insert 
input from his terminal as though he 
were the user. This input as well as the 
computer's response is echoed to the 
user's terminal. 

DEMO captures in a log file the events 
of the entire session. All input whether 
from the support manager's terminal, the 
user's terminal, or the computer, is 
identified. This provides the user valuable 
documentation for future referenece. 

Product information may be obtained 
from: Mary at: (801) 224-5306, 3707 N. 
Canyon Road, Suite 3-E, Provo, UT 
84604. 
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NEW ASYNCHRONOUS SERIAL INTERFACE MODULE WITH MODEM CONTROL 
FOR LSMl AND LSMl/23 BASED COMPUTERS. MLSI-DLVll-ED. (FROM MDB) 


EMULEX INTRODUCES STATCON 
SERIES 21 MULTIPLEXER THAT ADDS 
PORT CONCENTRATION FOR REMOTE 
DEVICES 

Santa Ana, CA — Emulex Corporation 
today introduced a unique 
communications product line that for the 
first time combines both standard host 
computer multiplexing and remote 
statistical port concentration capabilities 
in a single interface module. 

The new STATCON SERIES 21 
Multiplexer/Port Concentrator takes 
advantage of the company's CS21 series 
host multiplexers and adds special 
microprogramming to provide the 
demultiplexing capabilities required to 
funnel remotely concentrated data into a 
single computer RS-232 port. Up to 32 
local and/or remote lines may be 
connected to any DEC PDP-11 or VAX-11 
computer system using just a single 
backplane slot and without any user 
modification of standard software. Each 
remote link plugs into one of the 16 local 
RS-232 ports and the remaining number 
of RS-232 ports may be allocated to locals 
asynchronous line applications. 

"The object in using any statistical data 
concentrator is to reduce telephone line 
costs by sharing one line among several 


remote terminals," explained William 
Dollar, Emulex product manager for 
communications. "In the past, this was 
accomplished by having a statistical 
concentrator at each end of the 
communications link; but this meant that 
at the CPU end there were as many local 
ports and cables between the CPU and 
the local concentrator as there were 
remote terminal interfaces. While the 
number of phone lines was reduced, the 
user paid for a full local concentrator and 
host multiplexer capabilities. 

"Users would obviously prefer to 
interface the composite communication 
line directly into the CPU through a 
single high speed data channel, thus 
using only one port," he continued. "This 
previously presented a problem because 
a complex customer software package 
had to be developed to handle all aspects 
of multiplexing, demultiplexing, error 
handling, line initialization and 
synchronization, and remote concentrator 
configuration. Very few users could 
justify this kind of effort, even in view of 
the hardware cost savings. 

"The new CS21/MX host multiplexer 
and its companion CM22/EX local 
statistical port concentrator have been 
programmed by Emulex to provide all of 
these demultiplexing functions in a 


manner which is completely transparent 
to the DEC system's existing operating 
software," he said. "Now the network user 
can reduce total system hardware and 
also free up available RS-232 ports for 
other uses without having to make a 
substantial software development effort. 

"In addition, the CM22/EX is protocol 
compatible with the standard 
Micro800/2 and the Micro8000/2 
remote data concentrators made by 
Micom Systems, Inc. Existing or potential 
users of these Micom products may 
therefore avail themselves of this 
capability without any remote 
concentrator modification," Dollar said. 

The CSM21/MX is offered with either 
DHll or DZll emulations for use with 
PDP-11 or VAX-11 computer systems 
made by DEC. Both are transparent 
under all PDP-11 Operating Systems and 
the DZll version is transparent under 
VAX/VMS. Emulex also supports the 
DHll emulation under VAX/VMS with 
its own software to give users a higher 
performance alternative than the DZll 
version. 

"The CS21/MX computer interface 
plays an important role in the task of port 
concentration since it acts as the 
interpreter between the host computer 
and the local port concentrator," Dollar 
added. "On the port concentrator side, it 
is responsible for multiplexing and 
demultiplexing of data, for modem 
control, for handling data rate changes, 
for monitoring link error status, for 
providing a local/remote diagnostic 
loopback, and for control of data flow. On 
the CPU side, it makes the local and 
remote mix of lines appear to be two 
functional DHll asynchronous line 
multiplexers; or, in the case of the DZll 
emulation, it appears as four separate 
DZll asynchronous line multiplexers. 

This means the operating system does not 
have to be patched or otherwise modified 
for concentration applications." 

A single remote link configuration 
consists of the CS21/MX controller, a 16- 
port RS-232 Distribution Panel, and a 
CM22/EX Port Concentrator. An 
additional CM22/EX is added for each 
remote link; each CM22/EX plugs into 
one of the local RS-232 ports. Unused RS- 
232 ports may be used for local 
asynchronous lines, provided the total 
number of local plus remote channels 
does not exceed 32. The CM22/EX Port 
Concentrator can be ordered with or 
without integral modems. Standard 
Micom Micro800/2 and/or 8000/2 
statistical concentrators are used at the 
remote end of each link. 

The user defines through the 
communication I/O driver whether 
modem control will be a function of the 
remote channels or not. If it is not 
defined, the CM22/EX will not pass 
modem information to or from the remote 
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concentrator. If it is defined, the 
CS21/MX will inform the local port 
concentrator and the modem signal states 
for each remote channel on the link will 
be passed through the CM22/EX 
transparently. These passed signals then 
serve as the status or action elements to 
and from the communication I/O driver. 

Individual channel data rate changes 
are passed through the CM22/EX to the 
remote data concentrator. Standard DHll 
and DZll data rates are supported in the 
corresponding emulation. Link status is 
sent by the CM22/EX Port Concentrator 
to the CS21/MX for error reporting to the 
I/O driver. Data flow is generally 
controlled by the CM22/EX, which also 
monitors buffer status of the remote 
concentrator. Each channel may control 
data flow, however, through the normal 
XON/XOFF function. During extremely 
busy CPU periods, the CS21/MX can 
also control the incoming data flow from 
the CM22/EX to the host. 

"The CM22/EX Port Concentrator also 
serves several important functions in 


management of the communication link 
and the remote concentrator," Dollar 
noted. "It is responsible for all error 
control of data and transfers only error- 
free data blocks to the host computer. It 
also handles data buffering requirements, 
initialization and synchronization of the 
communication link, and configuration of 
the remote terminal concentrator to 
establish data rates and code levels for 
each channel." 

A minimum STATCON SERIES 21 
configuration includes a single 
CS21/MX computer interface PC board, 
a CP21 16-port distribution panel, and a 
CM22/EX statistical port concentrator 
without model. List price for this 
capability is $6,300. Additional port 
concentrators may be added at a list 
price of $2,200, without modem 
capability. Emulex also provides the 
remote Micom-compatible statistical 
concentrators with 4-16 channels, with or 
without integral modems, at standard 
established prices. 


Like all other Emulex products, these 
new units may be combined in the 
company's mix-and-match OEM volume 
purchase plan to qualify for pricing 
discounts. Emulex will market and 
support the STATCON SERIES 21 
products both directly and through 
certain of its authorized dealers. 


CP/M‘ MICRO CO-PROCESSORS FOR 
THE DEC* UNIBUS AND Q-BUS 
Berkeley, CA — Virtual Microsystems Inc. 
announced today the release of the z- 
Board micro co-processor for the UNIBUS 
and Q-Bus. The z-Board works with VMI's 
product THE BRIDGE Virtual 
Microcomputer System, to provide a 
complete virtual CP/M environment on a 
VAX, PDP-11, or LSI-11 minicomputer. 

The UNIBUS version of the z-Board 
features 4 z-80 micro-processors and a 
full 256 kbytes of memory, along with a 
bit slice state machine which handles the 
bus interface. The Q-Bus version is 
similar, but may be populated with 1 to 4 
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z-80's. Each of the z-SCys operates 
independently, providing each BRIDGE 
user with full microcomputer 
functionality at any of the attached 
terminals. 

A BRIDGE user begins a session by 
running THE BRIDGE as a task under 
VMS, RSX, RSTS, RT-11, or UNIX. THE 
BRIDGE first tests to see if a z-80 is 
available on the z-Board. If one is 
available, the user is "attached" to it. 
From that point on, the user feels as 
though his terminal is a fast CP/M 
microcomputer using hard disk. He can 
then run any of the programs in the vast 
CP/M software library. If a slot on the z- 
Board is not available (any number of z- 
Boards can be added to a system), the 
user is ’"attached" to THE BRIDGE 
simulator, which performs all calculations 
in software. THE BRIDGE handles all I/O, 
disk storage, printing, and 
communications. The system also makes 
use of "virtual floppy disks," files on the 
hard disk which are like a CP/M floppy 
disk. 

THE BRIDGE Virtual Microcomputer 
System, complete with z-Board, helps the 
information manager to manage the 
proliferation of microcomputers. A virtual 
microcomputer is available to any person 
on the system at anytime, yet the files are 
not distributed among various 
incompatible devices. A virtual 
microcomputer system can help reduce 
the costs of hardware significantly, and 
provide a much more integrated data 
processing environment. THE BRIDGE 
and z-Board combination are 
extraordinarily cost-effective; each slot on 
the z-Board costs around $1000 — far 
less than a "low-end" personal computer; 
yet THE BRIDGE provides hard disk, 
access to the fast system printers, and is 
integrated into an already existing, 
professionally managed system. 

THE BRIDGE and z-Board are available 
now for the full range of DEC computers 
under all the major DEC operating 
systems. THE BRIDGE costs between 
$1000-$3500 depending on the size of 
the minicomputer; each UNIBUS z-Board 
costs $4000 — Q-Bus versions vary 
between $1250 and $3500 depending on 
the number of installed microcomputers. 

THE BRIDGE and z-Board are 
trademarks of Virtual Microsystems Inc. 

CP/M is a trademark of Digital 
Research. 

DEC, RSX, VMS, RT-11, RSTS, and 
VAX are trademarks of Digital Equipment 
Corporation. 


f 


Occasionally we are requested to print news that may be of interest 
to the RSTS community. We are happy to offer this feature to our 
readers. We reserve the right to print only as time and space 
permit. We cannot return photos or manuscripts. Send news 
releases to: RSTS News Release. P.O. Box 361. Ft. Washington. PA 
19034-0361 
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HELP 

NEEDED 


The RSTS PRO with Carl 
and Dave is trying to put 
together a working PDP- 
11 /20 running RSTS V4A. 

This was the first PDP- 
11 to run RSTS and we think 
it would make a nice addition 
to the DEC Computer 
Museum (if they accept it). 

We need documentation 
for Version 4, as well as any 
SYSGEN-related information. 

If you have any or know 
where some is, please 
contact us at 215-542-7008. 
Thank you. 

Carl & Dave 
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VAX PERFORMANCE NOTES 

. . . continued from page 49 




THIS WORKLOAD DEMONSTRATES THAT FOR THE 11 /730 1 MB 
IS TOO LITTLE MEMORY. 2 MB IS ADEQUATE UP TO 16 USERS 
AND THAT THE CPU HAS THE POWER TO SUPPORT 3 MB. 



NUMBER OF INTERACTIVE USERS 


1 MB 

2 MB 

3 MB 

4 MB 
6 MB 
8 MB 


THIS SUPPORTS OUR CONTENTION THAT 2-3 MB IS A BETTER 
MEMORY SIZE FOR THE 11/730. 



THE 11/780 CONTINUES TO SUPPORT MORE USERS UP TO 
6 MB. BUT 8 MB DOESN'T SEEM TO HELP AT ALL. 


ADDING MEMORY TO THE 11/750 CONTINUES TO INCREASE 
PERFORMANCE UP TO 6 MB. 


11/750. 2 MB . 

11/750. 4 MB- 

11/750. 6 MB - 



NUMBER OF ACTIVE USERS 


O 

Ui 


20 

15 

10 

5 



NUMBER OF ACTIVE USERS 


THIS SHOWS HOW THE SYSTEMS "FALL OFF THE TABLE ". THE 
11/750 PEAKS AT 56 USERS AND 6 MB WHILE THE 11/780 
BEGINS TO DEGRADE AT 80 USERS AND 6 MB. 


THE 11/730 WHICH DIES WITH 8 USERS AND 1 MB. BEGINS 
TO DEGRADE AT 24 USERS AND 3 MB. NOTE THAT THE 11/750 
WITH 3 MB SHOWS NO SIGNS OF DEGREDATION AT 32 USERS. 



























RSTS/E INTERNALS MANUAL 


The RSTS community has been clamoring for years for a book that details the inner workings of RSTS/E. 
Well, clamor no more. Michael Mayfield of Northwest Digital Software, and M Systems, the publisher of The 
RSTS Professional and The DEC Professional Magazines, have teamed up to produce the RSTS/E Monitor Inter¬ 
nals Manual. 



This manual describes the internal workings and data structures of the RSTS/E monitor. It also notes dif¬ 
ferences in the internal structures between version 7.1 and earlier versions of the monitor. Future updates will in¬ 
clude changes for new versions of the monitor. 

Information is available for all levels of users: 

• Gain a basic understanding of the workings of the 
monitor for optimizing system performance. 

• Information on disk structures allows recovery of 
data from corrupted disk packs. 

• Special uses of runtime systems and resident 
libraries allow complex applications to be 
developed without degrading system performance. 

• Write your own custom device drivers for that 
“foreign” device you need to add but thought you. 
couldn’t. 

CONTENTS: 

Chapter 1 describes the structures^used by<i 
monitor that are resident on disk. Th^s^^include tTie 
directory structure, disk allocation Save Im¬ 
age Library (SIL) formats, bootstr^ and bad 

block mapping. " ’A 

Chapter 2 describes tll^ ta^es used within the 
monitor to control system rds^rces and provide pro¬ 
gram services. These tabl^ pfOvtcle job, memory, file 
and device control, as weH is program services such 
as interjob communicatipn. 




Chaptersconta|fisinfd?(naWOTi on writing and in¬ 
stalling a custom c(evfce <fri»ef. It describes the entry 
points and inforrieiipn the driver must provide to the 
monitor as yyeil es the ^Jbroutines and macros the 
monitor presides for’the' driver. 

4 t^tains information that enhances in- 
alreidy provided by Digital on writing 
>9^ent libraries and runtime systems. It con- 
.hentralee^’mainly on non-standard uses of resident 
,X^riii and runtime systems to increase system per- 
’ fdlpri^nce and functionality. 

Appendix A provides six quick reference foldout 
charts: 

• The directory structure. 

• The monitor tables. 

• Fixed memory locations and common data 
structures. 

• Monitor subroutines. 

• Device driver entry points. 

• Device driver macros. 



Appendix B provides examples of the peek se¬ 
quences required to access most of the monitor 
tables. It also contains an example program that uses 
many of the monitor tables to display a job and open 
files status. 


Appendix C provides an example device driver. 


Appendix D provides an example runtime system 
that doubles as a menu system for restricting 
specified users to a menu of options. 


$9500 


«END ORDERS TO: M SYSTEMS, INC., BOX 361, FORT WASHINGTON, PA 19034-0361 
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A COUPLE OF 
CUSP ENHANCEMENTS 

By Michael H. Koplitz 


There are still many RSTS/E installations that use the 
Digital spoolers, this installation being no exception to that 
rule. It has always been a pain to use the QUE.BAS program 
because when a Control-C is typed during the listing of a 
spooler, the program would go to “Ready" status. QUE.BAS 
should be like PIP which goes back to the prompt when a 
Control-C is entered during a listing of an account or file. 
The first enhancement shown here is to QUE.BAS. This en¬ 
hancement will allow the user to type a Control-C during the 
listing of any of the spoolers while in QUE.BAS and control 
will return to the "**" prompt. If two Control-Cs are entered, 
QUE.BAS performs the operations as if an “E" command had 
been entered. If a Control-C is entered to the command line 
input the "E" command is executed. 

None of the original lines of code in QUE.BAS were 
edited. All the changes given are new lines of code. They 
can be entered by any editor. 

Code changes to QUE.BAS 

1CX)5 X$ = SYS(CHR$(6%) + CHR$(-7%)) 

IF{EO% AND 16%) = 0% 

!SET CONTROL-C TRAP IF USER IS LOGGED IN 

10605 CONTROL.CEE.tr AP% = 0% 

ISET THE CONTROUC TRAP COUNTER TO ZERO 

19077 IF ERR = 28% THEN CONTROL.CEE.TRAP% = CONTROLCEE.TRAP% 

■I- 1% 

\ COS = "E • IF CONTROL.CEE.TRAP% = 2% 

OR ERL = 10600 

\ RESUME 10610 IF CONTROL.CEE.TRAP% = 2% 

OR ERL © 10600 

\ XS = SYS(CHR$(6%) + CHR$(-7%)) 

\ RESUME 1050 

\ ITAKES CARE OF CONTROL-C TRAP ERROR. 

The next enhancement is to MONEY.BAS. MONEY.BAS 
is a good utility to monitor the activity of the system. The 
only problem with MONEY.BAS is that the report does not 
indicate when the data was reset. Therefore it is impossible 
to know what time frame the MONEY report is referring to. 
The following enhancement creates a file named 
"$MONEY.DAT" which contains the date and time when the 
data was reset. To keep some integrity with this date, a user 
can not ask to reset data on selected accounts. The date in 
$MONEY.DAT therefore refers to the whole system. 


The code to make this enhancement is given below. 
Modified lines of code have an asterisk in front of the line 
number. These changes can be made with any editor. 

Code changes to MONEY.BAS 

110 ON ERROR GOTO 10000 

\ OPEN "SMONEY.DAT- AS FILE "1 % 

\ INPUT *11%.LAST.DATE$ 

\ CLOSE *11% 

lOPEN THE MONEY FILE AND GET LAST DATE OF RESET 

• 1110 PRINT *1 %." on ••:DATE$(0%):" at ••;TIME$(0%); 

\ 1% = 1% 

\ PRINT *1%." with Data being RESET”; IF R9% 

\ PRINT *1% 

\ PRINT *1 %.”Data last reset on "rLAST.DATES 

\ G0SUB8100 

IPRINT REST OF HEADER 

1115 GOTO 1120 UNLESS R9% 

\ OPEN -SMONEY.DAT’ OF ROUTPUT AS FILE *11 % 

\ PRINT *11 %.DATE$(0%):" ":TIME$(0%) 

\ CLOSE *11% 

IRESET THE DATA LAST RESET DATE BECAUSE DATA IS RESET. 

• 9000 PRINT ’’Selected accounts can not be reset” 

IF R9% 

\ R9% = 0% 

ICHECK RESET CONDITION 

9005 ON ERROR GOTO 9100 

\ INPUT ”Account”:M%(8%).M%(7%) 

\ GOTO 9005 IF M%(8%) < 0% OR M%(8%) > 254% 

OR M%(7%) < 0% OR M%(7%) > 254% 

OR (M%(8%) = 0% AND M%(7%) <> 1%) 

ISELECTIVE ACCOUNT LISTING - ENDS WITH CTRL/Z. 

ICHECK GENERAL RANGE 

lALLOW ONLY [0.1] IF PROJECT NUMBER IS ZERO. 

• 9020 PRINT *1%.’Data last reset or,-".LAST.DATES 

\ G0SUB8100 

\ GOSUB 2000 

\ GOTO 9005 

• 9060 PRINT ’Cannot find that Account ” 

\ GOTO 9005 

9115 GOTO 32767 

10000 LAST.DATES = ”?77?7?” 

\ RESUME 140 

IUNKNOWN LAST DATE 

Until this new version of MONEY.BAS is run with the 
data being reset the date on which the data was reset will 
show as mrrm. v 
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CLASSIFIED 


Send Classified Ads tO: RSTS Classified. P.O. Box 361. Ft. Washington. PA 
19034-0361. ^loo per word, first 12 words free with one year s subscrip¬ 
tion. [Be sure to include a phone number or address In your message.] 


Basic Plus Programmer, Small college EDP, 
(507) 663-4282, Carl Henry. 

FOR SALE. 11/40 w/256k, new 800/1600 
magtape, DZ11-A, RP03, LA36, LA120, 
VT100/AVO, RSTS, Word-11, SAVER. (503) 
635-8781. 


Copier for sale. 1V 2 years old—hardly used. 
Gestetner 2010 w/some supplies. Mainte¬ 
nance contract kept equipment like new. 
$1000. (215) 537-0782. 


RSTS CHEAP! 

$350/PORT. $20/MB 

on WALL STREET, NYC 

Local error-free dial-in 
or leased line termination 

and in PHILADELPHIA 

DEC 11/70. 24hrs.7days 
Secure Backups 
B+2. DIBOL. COBOL81 
DATATRIEVE, WORD-11. EDT 
Secured by LOCK-11 

NATIONWIDE DATA OIAIOG 

DAVE MALLERY 215-364-2800 

RSTS 

RESCUE SQUAD 

We salvage all kinds of disasters; 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1 GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
RSTS expert. 

CALL 24 HOURS 
215-542-7133 


LOOKING FOR 
DEVELOPMENTTIME? 


NO KILOCORE TICK CHARGES 
NO CPU CHARGES 

RSTS E TIME 

BASIC PLUS 2 

COBOL 

BASIC PLUS ^ WITH CROSS 
PASCAL > COMPILER 
C J SUPPORT 

WORD-II WORD PROCESSING 
WAFE 
TECO 
EDT 


} 


PROGRAM 

EDITING 


PER HOUR 
CONNECT 
TIME 

BUDGEi 
BYTES™ 
212 - 
944-9230> 


‘>y (0)[jui][raDComputer ™ 

1430 Broadway, New York, N.Y. 10018 


DEC BEST VALUES 


PRE-OWNED DEC EQUIPMENT 

BUYING AND SELLING 
SYSTEMS • CPU’s • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

Corico Center 

vJUIUVtVJIC? 2845 NW 62ncl street 

Lauderdale, Florida 33309 
^IMOw^^w^^l^^^Telephone(305^7^2844 ^ 





y 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 
is now for sale! 

Send size desired and $6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington, PA 19034-0361 
Shins availahk in adults sizes only: 
Small • Medium - Large - X-Large 





$200. RSTS/E* 'V, 




WORD PROCESSOR 
CBEDIT.BAS 


Basic-Plus* program with VDT input, 
window edit and document save. Add, 
locate, global change, replace, delete, 
block move and file merge, etc. Crash 
and operator error recovery. Supports 
DEC, Hazletine and Mime standard 
VDT’s. Others easy to add. 

Fully formatted output (margins, jus¬ 
tify, center, underscore, super-sub¬ 
script, headers, page numbers, etc.), 
to typewriter, line printer or disk. Bidi¬ 
rectional driver for DIablo-Xerox 16-17. 


User’s manual and source 
code included. 

9 Track $200. RK05 $260. ppd 
T.F. Hudgins & Associates, Inc. 
P.O. Box 10946, Houston, Texas 77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


BACK ISSUE OFFER 

ALL 13 BACK ISSUES OF 
THE RSTS PROFESSIONAL 
$90.00 

Send check to: 

THE RSTS PROFESSIONAL 
P.O. BOX 361 

FT. WASHINGTON, PA 19034-0361 

— Payment .Must .Accompany Order — 


Your old video terminals needed. George 
Fox College (503) 538-8383 Ext. 330. 

Pacific Northwest Commercial Time Shar¬ 
ing. Compu-Time, Inc., Portland, Oregon 
(503) 246-7766. 

Superior computer systems seeks subcon¬ 
tractors for the NY metropolitan area. Send 
resume to 100 North Village Avenue, 
Rockville Center, NY 11570. 

Distributor of DEC hardware, software, 
maintenance and consulting. American 
Business Computers (713) 265-2573. 

Multibus Development System. Terminal, 
printer, 2-8” drives, many extras. Jon Cole¬ 
man (415) 930-9932. 

For Sale: PDP8E, RK05, DEC TAPE. Carson- 
Newman College (615) 475-9061. 

Australian VAX Expertise: PRAXA Phone 
(03) 233-5318; (03) 878-8139; (03) 877-6443 
Total systems implemented. 

RSTS RSX-11 RT11 Consulting. Cuallty cost 
less in the end (404) 261-4634. 

DIBS-11, DEC introduced it... VERTEX 
made It work... CALL (614) 846-DIBS. 

For Sale: PDP-11/34A, 128KW, RK07’S, 
RXOrS, DZ11, 6 VT52’S, RSTS/E and many 
other licenses. Ron Klausewitz (304) 
473-8008. 


t PLAN plus! 


■ 

I 

■ 

\ 


The Financial Planning 
& Reporting System 


PLAN PLUS LTD 

PC BOX 327 LONDON W4 4QD 

TELEX 8813271 GECOMS G 


Telephone 01-834 7334 ex 7935 


■ 

I 

■ 

9 
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REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased from 
M Systems, Inc. No other reprints are 
authorized. 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request. 


LOOK at the “tear-out” cards in 
this issue. 

There are subscription cards for you 
or a friend. 

There’s a FREE gift for you. 

Bring in new subscribers and collect 
rewards. See “BOUNTY HUNTERS” 
card. 

There’s a READERS INQUIRY card 
for your convenience. 


CHANGES?????? 

Are you changing addresses? Please let us know so 
you won’t miss one issue of the RSTS Professional. 

FORMER 

Name __ 

Address _ 

City/State __ 

Zjp_ 

PRESENT/Near Future 

Name _ 

Address _ 

City/State _ 

Zip_ 


LIST OF ADVERTISERS 


Able Computer.I.B. Cover 

ADOS (Advanced Digital Office Systems).p.64 

Bob "Macro Man" Meyer.p.68 

Braegen MPD.p.37 

C. D. Smith & Associates Inc.p.56 

Clyde Digital Systems, Inc.p.2 

Computer-Methods Corporation.p.69 

Computer Systems Development (CSD), Ltd.p.71 

Data Processing Design Inc.B. Cover 

Dataware, Inc.p.18 

DCXX Software Services .p.61 

DEXP0 82 .p.46 

Digitec Software Design .p.51 

Emulex Corporation .p.21 

Enterprise Technology Corporation .p.26 

Evans, Griffiths 8i Hart, Inc.pp. 16,49 

Finar Systems Ltd.p.70 

Hamilton Rentals.p.9 

IAS Computer Corp. Ltd. p.67 

Infinity Software Corporation .p.23 

Innovative Electronics, Inc.p.63 

M Systems.p.85 

Manus Services Corp. pp. 17,54 

Martin Marietta Data Systems.p.45 

McHugh, Freeman &. Associates, Inc.p.66 

MTI Systems Corporation .p.29 

Nationwide Data Dialog.p.39 

NCA Corporation .p. 15 

NCCS (North County Computer Services Inc.). I.F. Cover.p;44 

Nordata.p.33 

On Track Systems, Inc.pp.57,65 

Pioneer Computer Systems Limited .p.63 

Plycom Services Inc.p.62 

Reliance Electric.p.25 

Ross Systems. Inc.p.11 

RTZ Computer Services Ltd. p.35 

Saturn Consulting Group .p.59 

Scherer s Mini Computer Mart.p.31 

Software Results Corporation .p.53 

Software Techniques. Inc.p.7.41 

Southern Systems .p. 1 

S.S.P.S. Inc.p.67 

System Performance House Inc.p.5 

Tano Corporation .p.62 

Tridacor Systems, Inc.p.13 

Tymshare .p.19 

Unitronix Corporation.p. 10 

Virtual Microsystems .p.27 

WHY Systems. Inc.p.59 
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Don^t wait for that 

SKMMMM) RSTS system 
replacement 



“ENABLE’what you already 
have instead.! 

Ris^t now 



s»® eo^x 


Fw under $101,0001 

That’s the smart thing to do. We know because we’ve already 
proved it with ENABLE” our backplane-resident device for 
expanding any 18-bit, UNIBUS, RSTS/E system to 4M bytes, 
and with MEGABOX'" an add-on equivalent for systems with¬ 
out adequate space in the host machine. ENABLE and 
MEGABOX installations have been working throughout the 
world for over a year. Users consistently report system 
throughput to be doubled or better in every case. 

If you want to get mileage like that out of your present 
investment, there is no other way. Only ENABLE or 
MEGABOX can give you those extra years of outstanding 
performance without complete system replacement. Our 
package consists of the ENABLE control, unbundled software 
and an optional cache with 8K bytes of high-speed memory. 

DEC OS, maintenance software and diagnostics remain 
fully applicable; ENABLE or MEGABOX become 
active only when the ENABLE software patch is 
installed and recognized. 

Once again, ABLE has produced a first- 
place winner in the continuing DECATHON 
competition for leadership in the wide world of 
DEC compatibility. If you think this first is 
good for RSTS users, just ask us what Mini- 
MAGNUM'"will do for RSXllM users. That 
product will be our eighteenth first. 

When we come in first, you always come out ahead. 




■ 


1 

COMPUTER 1 


CORPORATE HEADQUARTERS 
ABLE COMPUTER 
1732 Reynolds Avenue 
Irvine, CA 92714. (714) 979-7030 


NATIONAL OFFICES 
Burlington, MA (617) 272-1330 
Dallas, TX (214) 387-2855 
Daly City, CA (415) 755-6040 


INTERNATIONAL OFFICES 
Canada (Toronto) (416) 270-8086 
England (Newbury) (0635) 32125 
W. Germany (Munich) 089/463080 


DEC, UNIBUS, RSX and RSTS are trademarks of Digital Equipment Corporation. 
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WORD-11. 


The WM'd Processing System 

Vital For VAX. 



The IMabridged Addition. 


No matter how many additions you’ve made 
to your VAX,^*^ it won’t be complete without 
WORD-11.It’s the sophisticated word processing 
system designed to help you use all the other 
information you’ve stored. With features like 
list processing, built-in dictionaries for spelling 
error detection, automatic table of contents and 
footnoting that make report writing a snap. 

WORD-11 runs concurrently with data 
processing on multiple terminals. It’s easy to use. 
And it’s been up and running in hundreds of 
installations all over the world for years. 

WORD-11 is easy to install and operate. It’s 


cost effective. And it’s supported by a dedicated 
team of experienced speci^sts. It could be the 
most important addition you make to your VAX 
installation. For details. Call, (714) 993-4160. 

WORD-11 is also available for Digital’s 
RSX-llM,^’^ RSX-llM PLUS^"^ and RSTS/E^'^ 
operating systems. 



Data Processing Design, Inc. 


AUIHOWIZED SDSDDID 


OSTBBUKDR 




CORPORATE OFFICE 
181 W. Orangethorpe, Suite F 
Placentia, CA 92670 
714-993-4160 Telex 182-278 


N YOFFICE 

420 Lexington Avenue, Suite 633 
New York, NY 10170 
, 212-687-0104 


WASHINGTON D C OFFICE 
4520 East- West Highway, Suite 550 
Bethesda, MD208I4 
301-657-4098 


WORD-ll is a trademark of Data Processing Design, Inc. 

VA X, RSX-llM, RSX-lIM PL US, and RSTS/E are trademarks, and remaining titles are products or trademarks of Digital Equipment Corporation. 
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